diff --git a/code/describe.lisp b/code/describe.lisp index e4e1ad674acac94763c7841521f77000b7e11c37..0f19cf774f7821a844366bbaa25bb6d433096a40 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))))