From 7cb1118e79362683a939eb55b15151b5b60e4694 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Sun, 2 Aug 1992 19:41:09 +0000 Subject: [PATCH] Added support for :TYPE-PREDICATE load-time fixups in byte code. --- compiler/dump.lisp | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/compiler/dump.lisp b/compiler/dump.lisp index c866d0977..96945ae05 100644 --- a/compiler/dump.lisp +++ b/compiler/dump.lisp @@ -7,11 +7,11 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/dump.lisp,v 1.42 1992/07/22 22:49:44 wlott Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/dump.lisp,v 1.43 1992/08/02 19:41:09 ram Exp $") ;;; ;;; ********************************************************************** ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/dump.lisp,v 1.42 1992/07/22 22:49:44 wlott Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/dump.lisp,v 1.43 1992/08/02 19:41:09 ram Exp $ ;;; ;;; This file contains stuff that knows about dumping FASL files. ;;; @@ -686,6 +686,11 @@ (:fdefinition (dump-object (cdr entry) file) (dump-fop 'lisp::fop-fdefinition file)) + (:type-predicate + (dump-object 'load-type-predicate file) + (dump-object (type-specifier (cdr entry)) file) + (dump-fop 'lisp::fop-funcall file) + (dump-byte 1 file)) (:xep (xep-patches (cons (cdr entry) i)) (dump-fop 'lisp::fop-misc-trap file))))))) -- GitLab