[Openmcl-cvs-notifications] r16245 - /trunk/source/cocoa-ide/hemlock/src/listener.lisp

gz at clozure.com gz at clozure.com
Thu Sep 25 20:53:16 UTC 2014


Author: gz
Date: Thu Sep 25 20:53:16 2014
New Revision: 16245

Log:
Do not auto-create packages based on file modelines, as this leads to packa=
ge conflicts when the real definitions are loaded

Modified:
    trunk/source/cocoa-ide/hemlock/src/listener.lisp

Modified: trunk/source/cocoa-ide/hemlock/src/listener.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/cocoa-ide/hemlock/src/listener.lisp	(original)
+++ trunk/source/cocoa-ide/hemlock/src/listener.lisp	Thu Sep 25 20:53:16 20=
14
@@ -42,9 +42,6 @@
            (t
             (message "Ignoring \"package:\" file option ~a" thing)
             nil))))
-    (when name
-      (ignore-errors (let* ((*package* *package*))
-                       (apply 'ccl::old-in-package (if (atom thing) (list =
thing) thing)))))
     (defhvar "Current Package"
       "The package used for evaluation of Lisp in this buffer."
       :buffer buffer



More information about the Openmcl-cvs-notifications mailing list