From 18a2324fc5a2f4ab10297874fa6f67e4be62bb54 Mon Sep 17 00:00:00 2001 From: pw <pw> Date: Wed, 14 Mar 2001 23:25:16 +0000 Subject: [PATCH] Add defmethod print-object specialized on structure-object so that ANSI behaviour (print using #S(...) notation) happens. --- pcl/env.lisp | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/pcl/env.lisp b/pcl/env.lisp index b7e12dbcc..b3d1b5952 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) -- GitLab