From 9d046c034a3fbff4ddfbf94ff4df99551bd9f6fe Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Thu, 20 May 1993 11:26:24 +0000 Subject: [PATCH] Protected against changing constants of the form (%fdefinition-marker% foo) into fdefn objects. --- compiler/byte-comp.lisp | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/compiler/byte-comp.lisp b/compiler/byte-comp.lisp index c80df0a0c..7c069c91a 100644 --- a/compiler/byte-comp.lisp +++ b/compiler/byte-comp.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/byte-comp.lisp,v 1.13 1993/05/17 21:32:12 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/byte-comp.lisp,v 1.14 1993/05/20 11:26:24 wlott Exp $") ;;; ;;; ********************************************************************** ;;; @@ -823,7 +823,10 @@ ;; It can be represented as an immediate. (output-push-int segment const) ;; We need to store it in the constants pool. - (let* ((posn (gethash const *system-constant-codes*)) + (let* ((posn + (unless (and (consp const) + (eq (car const) '%fdefinition-marker%)) + (gethash const *system-constant-codes*))) (new-info (if posn (cons :system-constant posn) (cons :local-constant -- GitLab