2007-10-21 多重人格 LISP >(setf (symbol-function 'foo) #'(lambda (x) (* x foo))) foo >(setq foo 5) 5 >(foo 4) 20