Commit fecf410f authored by pfdietz's avatar pfdietz
Browse files

Fixed missing package argument.

parent ce17981f
......@@ -51,7 +51,7 @@
(deftest intern.3
(let ((cl-user-package (find-package "CL-USER")))
(eqt (intern "" cl-user-package)
(intern (make-array 0 :element-type nil))))
(intern (make-array 0 :element-type nil) cl-user-package)))
t)
(deftest intern.4
......
Supports Markdown
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