Update of /project/movitz/cvsroot/movitz In directory clnet:/tmp/cvs-serv30109
Modified Files: image.lisp Log Message: indent.
--- /project/movitz/cvsroot/movitz/image.lisp 2008/04/21 19:45:51 1.123 +++ /project/movitz/cvsroot/movitz/image.lisp 2008/04/27 19:18:16 1.124 @@ -9,7 +9,7 @@ ;;;; Created at: Sun Oct 22 00:22:43 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: image.lisp,v 1.123 2008/04/21 19:45:51 ffjeld Exp $ +;;;; $Id: image.lisp,v 1.124 2008/04/27 19:18:16 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------
@@ -1240,15 +1240,13 @@ 'package) (movitz-read (ensure-package (string :common-lisp) :muerte.common-lisp))) (loop for symbol being the hash-key of (image-oblist *image*) - as lisp-package = (symbol-package symbol) - as package-name = (and lisp-package - (movitz-package-name (package-name lisp-package) symbol)) -;;; do (when (string= symbol :method) -;;; (warn "XXXX ~S ~S ~S" symbol lisp-package package-name)) - when package-name - do (let* ((movitz-package (ensure-package package-name lisp-package symbol))) - (setf (movitz-symbol-package (movitz-read symbol)) - (movitz-read movitz-package)))) + as lisp-package = (symbol-package symbol) + as package-name = (and lisp-package + (movitz-package-name (package-name lisp-package) symbol)) + when package-name + do (let* ((movitz-package (ensure-package package-name lisp-package symbol))) + (setf (movitz-symbol-package (movitz-read symbol)) + (movitz-read movitz-package)))) movitz-packages))))