From: William H. N. <wn...@us...> - 2003-05-03 18:20:05
|
Update of /cvsroot/sbcl/sbcl/contrib/sb-aclrepl In directory sc8-pr-cvs1:/tmp/cvs-serv17015 Modified Files: inspect.lisp Log Message: 0.8alpha.0.9: defined WITH-UNIQUE-NAMES grepped for 'gensym "', and used WITH-UNIQUE-NAMES instead where it seemed more convenient tweaked miscellaneous text I noticed in my greppage added test case for just-fixed compiler bug bugfix: one last s/layout-class/layout-classoid/ Index: inspect.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/contrib/sb-aclrepl/inspect.lisp,v retrieving revision 1.16 retrieving revision 1.17 diff -u -d -r1.16 -r1.17 --- inspect.lisp 27 Apr 2003 17:00:27 -0000 1.16 +++ inspect.lisp 3 May 2003 18:20:02 -0000 1.17 @@ -56,7 +56,6 @@ (eval-when (:compile-toplevel :load-toplevel :execute) (defvar *inspect-unbound-object-marker* (gensym "INSPECT-UNBOUND-OBJECT-"))) - (defun inspector-fun (object input-stream output-stream) (declare (ignore input-stream)) (let ((*current-inspect* nil) |