Skip to content
Snippets Groups Projects
Commit 900ae9e2 authored by toy's avatar toy
Browse files

From Gerd Moellman who ported the SBCL version to CMUCL.

Fix the TYPE-ERROR/PACKAGE-ERROR confusion in LOOP, by fixing
WITH-PACKAGE-ITERATOR.
parent 4b3dca0e
No related branches found
No related tags found
No related merge requests found
......@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain.
;;;
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/package.lisp,v 1.60 2002/11/14 16:54:33 toy Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/package.lisp,v 1.61 2002/11/25 18:59:50 toy Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -661,7 +661,11 @@
(,packages `,(mapcar #'(lambda (package)
(if (packagep package)
package
(find-package package)))
(or (find-package package)
(error 'simple-package-error
:name (string package)
:format-control "~@<~S does not name a package ~:>"
:format-arguments (list package)))))
(if (consp ,these-packages)
,these-packages
(list ,these-packages))))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment