21 |
(notnot (second ret-vals)))))) |
(notnot (second ret-vals)))))) |
22 |
3 t) |
3 t) |
23 |
|
|
24 |
|
;;; Verify that it doesn't barf on generic functions |
25 |
|
(deftest function-lambda-expression.3 |
26 |
|
(length |
27 |
|
(multiple-value-list |
28 |
|
(function-lambda-expression |
29 |
|
#'meaningless-user-generic-function-for-universe))) |
30 |
|
3) |
31 |
|
|
32 |
(deftest function-lambda-expression.order.1 |
(deftest function-lambda-expression.order.1 |
33 |
(let ((i 0)) |
(let ((i 0)) |
34 |
(function-lambda-expression (progn (incf i) #'cons)) |
(function-lambda-expression (progn (incf i) #'cons)) |