Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv22558/losp/muerte

Modified Files: packages.lisp Log Message: *** empty log message *** Date: Sat Nov 13 15:50:13 2004 Author: ffjeld

Index: movitz/losp/muerte/packages.lisp diff -u movitz/losp/muerte/packages.lisp:1.5 movitz/losp/muerte/packages.lisp:1.6 --- movitz/losp/muerte/packages.lisp:1.5 Thu Oct 21 22:50:19 2004 +++ movitz/losp/muerte/packages.lisp Sat Nov 13 15:50:13 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld frodef@acm.org ;;;; Created at: Thu Aug 30 15:19:43 2001 ;;;; -;;;; $Id: packages.lisp,v 1.5 2004/10/21 20:50:19 ffjeld Exp $ +;;;; $Id: packages.lisp,v 1.6 2004/11/13 14:50:13 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -172,10 +172,10 @@ ((keywordp symbol) (format t "~&~W == keyword~%" symbol)) ((fboundp symbol) - (format t "~&~W == function arglist: ~A~%" + (format t "~&~W == function ~:A~%" symbol (funobj-lambda-list (symbol-function symbol)))) ((boundp symbol) - (format t "~&~W == variable value: ~S~%" + (format t "~&~W == variable ~S~%" symbol (symbol-value symbol))) (t (format t "~&~W~%" symbol)))))) (let ((string (string string)))