Commit 03b93595 authored by pfdietz's avatar pfdietz
Browse files


parent 6db7c93c
......@@ -37,7 +37,7 @@
(etypecase fn
(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
;;; (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