From 2f40d197bf11d5bcc0d5833f37a8039bca24b9b1 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Mon, 12 Feb 1990 12:01:45 +0000 Subject: [PATCH] Changed SHARP-S to use INFO TYPE DEFINED-STRUCTURE-INFO. --- code/sharpm.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/code/sharpm.lisp b/code/sharpm.lisp index c24253b5f..65338fd9a 100644 --- a/code/sharpm.lisp +++ b/code/sharpm.lisp @@ -261,7 +261,7 @@ (cond ((listp body) (unless (symbolp (car body)) (error "Structure type is not a symbol: ~S" (car body))) - (let ((defstruct (info type structure-info (car body)))) + (let ((defstruct (info type defined-structure-info (car body)))) (unless defstruct (error "~S is not a defined structure type." (car body))) (unless (c::dd-constructor defstruct) -- GitLab