Commits

Robert Smith  committed fa0e1a6

use FDEFINITION instead of SYMBOLIC-FUNCTION.

  • Participants
  • Parent commits 423519b

Comments (0)

Files changed (2)

File language.lisp

           "SYMBOL must be a symbol, given ~S."
           symbol)
   `(progn
-     (setf (symbol-function ',symbol) ,function)
-     ',symbol))
+     (setf (fdefinition ',symbol) ,function)
+     ',symbol))

File sequence.lisp

     
     ;; General sequences
     (sequence (loop :for i :below (1+ (- (length sequence) n))
-                    :collect (subseq sequence i (+ i n))))))
+                    :collect (subseq sequence i (+ i n))))))