Commit 29bd3048 authored by pfdietz's avatar pfdietz

Fixed TO-FUNCTION

parent 03b93595
......@@ -37,7 +37,7 @@
(etypecase fn
(function fn)
(symbol (symbol-function fn))
((cons (eql setf) (cons symbol nil)) (fdefinition fn))))
((cons (eql setf) (cons symbol null)) (fdefinition fn))))
;;; Macro to check that a function is returning a specified number of values
;;; (defaults to 1)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment