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