Skip to content
Snippets Groups Projects
Commit 18a2324f authored by pw's avatar pw
Browse files

Add defmethod print-object specialized on structure-object so that ANSI

behaviour (print using #S(...) notation) happens.
parent 83de0f75
No related branches found
No related tags found
No related merge requests found
...@@ -26,7 +26,7 @@ ...@@ -26,7 +26,7 @@
;;; ;;;
(ext:file-comment (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. ;;; Basic environmental stuff.
;;; ;;;
...@@ -37,6 +37,10 @@ ...@@ -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)) (defgeneric describe-object (object stream))
(defmethod describe-object (object stream) (defmethod describe-object (object stream)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment