From 9d317f88395c8dd9a6afb700c21b248d425e81f1 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Wed, 21 Feb 1990 15:54:28 +0000
Subject: [PATCH] Changed the default for DEBUG-FUNCTION-RETURNS to :FIXED so
 that we can create the structure before initializing the slots.

---
 code/debug-info.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/code/debug-info.lisp b/code/debug-info.lisp
index c88cabbfc..d0e29c39e 100644
--- a/code/debug-info.lisp
+++ b/code/debug-info.lisp
@@ -270,7 +270,7 @@
   ;; :Fixed
   ;;    The function returns using the a fixed-values convention, but we
   ;;    elected not to store a vector to save space.
-  (returns nil :type (or (simple-array * (*)) (member :standard :fixed)))
+  (returns :fixed :type (or (simple-array * (*)) (member :standard :fixed)))
   ;;
   ;; SC-Offsets describing where the return PC and return CONT are kept.
   (return-pc nil :type sc-offset)
-- 
GitLab