Commit 03b93595 authored by pfdietz's avatar pfdietz

Fixed TO-FUNCTION

parent 6db7c93c
...@@ -37,7 +37,7 @@ ...@@ -37,7 +37,7 @@
(etypecase fn (etypecase fn
(function fn) (function fn)
(symbol (symbol-function fn)) (symbol (symbol-function fn))
((cons (eql setf) symbol) (fdefinition fn)))) ((cons (eql setf) (cons symbol nil)) (fdefinition fn))))
;;; Macro to check that a function is returning a specified number of values ;;; Macro to check that a function is returning a specified number of values
;;; (defaults to 1) ;;; (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