diff --git a/pcl/env.lisp b/pcl/env.lisp index b7e12dbcc6bd1171f8fb4a507ba5df5cf382b9d9..b3d1b595257cc6d57d80390b2818f6c4f4b678dc 100644 --- a/pcl/env.lisp +++ b/pcl/env.lisp @@ -26,7 +26,7 @@ ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/env.lisp,v 1.12 1999/05/30 23:13:58 pw Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/env.lisp,v 1.13 2001/03/14 23:25:16 pw Exp $") ;;; ;;; Basic environmental stuff. ;;; @@ -37,6 +37,10 @@ ;;; ;;; +;;; ANSI compliance wants default structure printer to use #S(...) format. +(defmethod print-object ((object structure-object) stream) + (lisp::default-structure-print object stream 0)) + (defgeneric describe-object (object stream)) (defmethod describe-object (object stream)