diff --git a/changelog b/changelog index 5a1bcf0..7aeeb0f 100644 --- a/changelog +++ b/changelog @@ -1,3 +1,5 @@ +20090929 tpd src/axiom-website/patches.html 20090929.01.tpd.patch +20090929 tpd src/interp/nruntime.lisp cleanup 20090928 tpd src/axiom-website/patches.html 20090928.02.tpd.patch 20090928 tpd src/interp/pathname.lisp cleanup 20090928 tpd src/axiom-website/patches.html 20090928.01.tpd.patch diff --git a/src/axiom-website/patches.html b/src/axiom-website/patches.html index f738e79..02df541 100644 --- a/src/axiom-website/patches.html +++ b/src/axiom-website/patches.html @@ -2059,5 +2059,7 @@ src/interp/rulesets.lisp cleanup
src/interp/record.lisp cleanup
20090928.02.tpd.patch src/interp/pathname.lisp cleanup
+20090929.01.tpd.patch +src/interp/nruntime.lisp cleanup
diff --git a/src/interp/nruntime.lisp.pamphlet b/src/interp/nruntime.lisp.pamphlet index 8b37b20..87abd35 100644 --- a/src/interp/nruntime.lisp.pamphlet +++ b/src/interp/nruntime.lisp.pamphlet @@ -53,6 +53,7 @@ (DEFUN |lookupDisplay| (|op| |sig| |vectorOrForm| |suffix|) (PROG (|prefix|) + (declare (special |$NRTmonitorIfTrue|)) (RETURN (COND ((NULL |$NRTmonitorIfTrue|) NIL) @@ -74,6 +75,7 @@ (DEFUN |isInstantiated| (G166088) (PROG (|op| |argl| |u|) + (declare (special |$ConstructorCache|)) (RETURN (PROGN (SPADLET |op| (CAR G166088))