[Openmcl-cvs-notifications] r16236 - /trunk/source/compiler/optimizers.lisp

gz at clozure.com gz at clozure.com
Thu Sep 25 16:59:49 UTC 2014


Author: gz
Date: Thu Sep 25 16:59:49 2014
New Revision: 16236

Log:
Pass the correct arg to  error

Modified:
    trunk/source/compiler/optimizers.lisp

Modified: trunk/source/compiler/optimizers.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/compiler/optimizers.lisp	(original)
+++ trunk/source/compiler/optimizers.lisp	Thu Sep 25 16:59:49 2014
@@ -2468,7 +2468,7 @@
       (let* ((r (gensym)))
         `(let* ((,r ,ref))
           (or (package-ref.pkg ,ref)
-           (%kernel-restart $xnopkg (package-ref.pkg ,r)))))
+           (%kernel-restart $xnopkg (package-ref.name ,r)))))
       w)))
 =

 =




More information about the Openmcl-cvs-notifications mailing list