diff --git a/printer.lisp b/printer.lisp
index d4217321b3a1fc787bf9b871e45f608337b2680a..924d89693b996bb7063340e35cfcffa9c6bb51b4 100644
--- a/printer.lisp
+++ b/printer.lisp
@@ -457,7 +457,7 @@
       (when (or lisp-pkg pkg)
         (let ((pkg (string-upcase (or lisp-pkg pkg))))
           (format stream "~&(cl:eval-when (:execute :compile-toplevel :load-toplevel)~
-                          ~%  (unless (cl:find-package \"~A\")~
+                          ~%  (cl:unless (cl:find-package \"~A\")~
                           ~%    (cl:defpackage ~A (:use~@[ ~(~S~)~]))))~
                           ~%(cl:in-package \"~A\")~
                           ~%(cl:export '(~{~A~^~%             ~}))~%~%"