Commits

Robert Smith committed fa0e1a6

use FDEFINITION instead of SYMBOLIC-FUNCTION.

Comments (0)

Files changed (2)

           "SYMBOL must be a symbol, given ~S."
           symbol)
   `(progn
-     (setf (symbol-function ',symbol) ,function)
-     ',symbol))
+     (setf (fdefinition ',symbol) ,function)
+     ',symbol))
     
     ;; General sequences
     (sequence (loop :for i :below (1+ (- (length sequence) n))
-                    :collect (subseq sequence i (+ i n))))))
+                    :collect (subseq sequence i (+ i n))))))