Diff of /tests/pprint.impure.lisp [edbf1a] .. [a8c066]  Maximize  Restore

  Switch to side-by-side view

--- a/tests/pprint.impure.lisp
+++ b/tests/pprint.impure.lisp
@@ -316,5 +316,8 @@
     (equal (format nil "~a" '(setf . a))
            "(SETF . A)")))
 
+(with-test (:name :literal-fun-nested-lists)
+  (assert (search "EQUALP" (format nil "~:w" `((((((,#'equalp)))))))
+                  :test #'char-equal)))
 
 ;;; success

Get latest updates about Open Source Projects, Conferences and News.

Sign up for the SourceForge newsletter:





No, thanks