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