From cd820d07248dcce1106cbcd5e18bd4831b570f76 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sun, 16 Mar 2008 16:22:14 +0000
Subject: 	* lisp/Makefile.in (void_type): New. 	(char_type): Likewise.
 	(int_type): Likewise. 	(float_type): Likewise. 	(double_type):
 Likewise. 	(string_type): Likewise. 	(pointer_type): Likewise. 
 (edit): Use them. 	* interp/wi1.boot (ppFull): Tidy.  Don't set
 *PRINT-DEPTH*. 	* interp/vmlisp.lisp (gcmsg): Define when SBCL. 
 * interp/template.boot (measureCommon): Fix thinko. 	*
 interp/sys-utility.boot: Move basic type definition from 	g-util.boot to
 here. 	* interp/g-util.boot (augProplistOf): Fix signature declaration. 
 * interp/daase.lisp: Tidy. 	* interp/c-util.boot (displayComp): Remove
 assignment to 	$X,$M,$F. 	* interp/boot-pkg.lisp: Tidy. 	*
 interp/axext_l.lisp: Likewise. 	* interp/Makefile.pamphlet
 (makeint.lisp): Call GBC only when GCL. 
 ($(axiom_targetdir)/algebra/exposed.$(FASLEXT)): Tidy. 
 (patches.$(FASLEXT)): Require debug.$(FASLEXT), g-timer.$(FASLEXT). 
 (wi2.$(FASLEXT)): Require define.$(FASLEXT). 	(spad.$(FASLEXT)): Require
 postpar.$(FASLEXT), debug.$(FASLEXT). 	* boot/translator.boot
 (genImportDeclaration): Include translation 	for SBCL. 	*
 boot/parser.boot (bpMapping): Tidy. 	* boot/ast.boot (coreSymbol): New. 
 (bootSymbol): Likewise. 	(bootSymbol): Likewise. 	*
 lisp/core.lisp.in (|$NativeTypeTable|): New. Export. 	*
 algebra/Makefile.pamphlet (COMPILE_LISP): Use $(INTERPSYS). 	*
 algebra/exposed.lsp.pamphlet: Tidy.

---
 src/algebra/exposed.lsp.pamphlet | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

(limited to 'src/algebra/exposed.lsp.pamphlet')

diff --git a/src/algebra/exposed.lsp.pamphlet b/src/algebra/exposed.lsp.pamphlet
index cc4000bc..3c12b66c 100644
--- a/src/algebra/exposed.lsp.pamphlet
+++ b/src/algebra/exposed.lsp.pamphlet
@@ -45,8 +45,9 @@
 <<*>>=
 <<license>>
 
-(in-package 'BOOT)
-(setq |$globalExposureGroupAlist|
+(import-module "boot-pkg")
+(in-package "BOOT")
+(defparameter |$globalExposureGroupAlist|
 '(
 ;;define the groups |basic| |naglink| |anna| |categories| |Hidden| |defaults|
 (|basic| 
@@ -1246,7 +1247,7 @@
   (|VectorCategory&| . VECTCAT-)
   (|VectorSpace&| . VSPACE-)))
 )
-(setq |$localExposureDataDefault| (VECTOR 
+(defparameter |$localExposureDataDefault| (VECTOR 
 (LIST 
 ;;These groups will be exposed 
 '|basic| 
@@ -1261,7 +1262,7 @@
 ;;These constructors will be explicitly hidden
 )
 ))
-(setq |$localExposureData|  (copy-seq |$localExposureDataDefault|))
+(defparameter |$localExposureData|  (copy-seq |$localExposureDataDefault|))
 @
 \eject
 \begin{thebibliography}{99}
-- 
cgit v1.2.3