From c78b66d0ad1902581f86244cbda985e22bb52f32 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Thu, 11 Oct 1990 11:09:39 +0000 Subject: [PATCH] Fixed structure describing to use STRUCTURE-REF. --- code/describe.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/code/describe.lisp b/code/describe.lisp index e4e1ad674..0f19cf774 100644 --- a/code/describe.lisp +++ b/code/describe.lisp @@ -199,7 +199,7 @@ (describe (cadr plist))))) (defun describe-structure (x) - (format t "~&~S is a structure of type ~A." x (svref x 0)) + (format t "~&~S is a structure of type ~A." x (c::structure-ref x 0)) (dolist (slot (cddr (inspect::describe-parts x))) (format t "~%~A: ~S." (car slot) (cdr slot)))) -- GitLab