1. Robert Smith
  2. qtility

Commits

Robert Smith  committed fa0e1a6

use FDEFINITION instead of SYMBOLIC-FUNCTION.

  • Participants
  • Parent commits 423519b
  • Branches default

Comments (0)

Files changed (2)

File language.lisp

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

File sequence.lisp

View file
  • Ignore whitespace
     
     ;; General sequences
     (sequence (loop :for i :below (1+ (- (length sequence) n))
-                    :collect (subseq sequence i (+ i n))))))
+                    :collect (subseq sequence i (+ i n))))))