Commit 3af541c1 authored by pfdietz's avatar pfdietz

Add a test of function-lambda-expression on generic functions

parent fcda692a
......@@ -21,6 +21,14 @@
(notnot (second ret-vals))))))
3 t)
;;; Verify that it doesn't barf on generic functions
(deftest function-lambda-expression.3
(length
(multiple-value-list
(function-lambda-expression
#'meaningless-user-generic-function-for-universe)))
3)
(deftest function-lambda-expression.order.1
(let ((i 0))
(function-lambda-expression (progn (incf i) #'cons))
......
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