Commit 71c7ae30 authored by pfdietz's avatar pfdietz

Added test that NIL is an acceptable lexical function name. Added tests that...

Added test that NIL is an acceptable lexical function name.  Added tests that all standard generic functions are in the class, and that structure(standard)-object is in structure(standard)-class.
parent d1422eda
......@@ -380,3 +380,13 @@
;;; (flet ((%f (&key (a :good) &allow-other-keys) a))
;;; (%f 10 20)))
;;; :good)
(deftest flet.45
(flet ((nil () 'a)) (nil))
a)
(deftest flet.46
(flet ((t () 'b)) (t))
b)
......@@ -257,7 +257,27 @@
collect sym)
nil)
;;; Confirm that all standard generic functions are instances of
;;; the class standard-generic-function.
(deftest all-standard-generic-functions-are-instances-of-that-class
(loop for sym in *cl-standard-generic-function-symbols*
for fun = (and (fboundp sym) (symbol-function sym))
unless (and (typep fun 'generic-function)
(typep fun 'standard-generic-function))
collect (list sym fun))
nil)
;;; Canonical metaobjects are in the right classes
(deftest structure-object-is-in-structure-class
(notnot-mv (typep (find-class 'structure-object) 'structure-class))
t)
(deftest standard-object-is-in-standard-class
(notnot-mv (typep (find-class 'standard-object) 'standard-class))
t)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
......
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