[movitz-cvs] CVS update: movitz/packages.lisp

[Frode Vatvedt Fjeld]

Update of /project/movitz/cvsroot/movitz
In directory common-lisp.net:/tmp/cvs-serv23862

Modified Files:
	packages.lisp 
Log Message:
Cleaned up the exports from the muerte package, somewhat.

Date: Thu May  5 17:16:30 2005
Author: ffjeld

Index: movitz/packages.lisp
diff -u movitz/packages.lisp:1.47 movitz/packages.lisp:1.48
--- movitz/packages.lisp:1.47	Sat Apr 30 23:16:12 2005
+++ movitz/packages.lisp	Thu May  5 17:16:29 2005
@@ -10,7 +10,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Sat Nov 15 21:39:55 2003
 ;;;;                
-;;;; $Id: packages.lisp,v 1.47 2005/04/30 21:16:12 ffjeld Exp $
+;;;; $Id: packages.lisp,v 1.48 2005/05/05 15:16:29 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -1088,19 +1088,15 @@
   (:use muerte.mop muerte.common-lisp)
   (:import-from common-lisp cl:nil)
   (:shadow get-setf-expansion)
-  (:export translate-program
-	   decode-macro-lambda-list
-	   with-inline-assembly
-	   with-progn-results
-	   make-named-function
-	   without-function-prelude
-	   numargs-case
-	   movitz-accessor
-	   simple-read-from-string
+  (:export #:translate-program
+	   #:decode-macro-lambda-list
+	   #:with-inline-assembly
+	   #:make-named-function
+	   #:without-function-prelude
+	   #:numargs-case
+	   #:simple-read-from-string
 	   #:read-key
-	   print-word
-	   fixnump below
-	   print-unreadable-movitz-object
+	   #:fixnump
 	   #:newline
 	   
 	   #:*print-safely*
@@ -1119,17 +1115,9 @@
 	   #:*backtrace-print-level*
 	   #:backtrace
 
-	   #:stack-ref
-	   #:with-each-dynamic-context
-	   #:stack-frame-uplink
-	   #:current-stack-frame
-	   #:current-dynamic-context
-	   #:stack-frame-funobj
-	   #:stack-frame-call-site
-	   #:stack-frame-ref
-	   #:check-stack-limit
 	   #:dit-frame-ref
-	   #:dit-frame-casf
+	   #:check-stack-limit
+	   #:current-stack-frame
 	   #:interrupt-default-handler
 	   #:exception-handler
 
@@ -1157,51 +1145,41 @@
 	   
 	   #:movitz-type-slot-offset
 	   
-	   vector-element-type
-	   vector-element-size
-	   with-subvector-accessor
-	   svref%unsafe
-	   bvref-u16
-	   object-location
-	   object-tag
-	   location-in-object-p
-	   inline-malloc
-	   define-compile-time-variable
-	   define-primitive-function
-	   without-gc
-	   with-stack-check
-	   with-symbol-mutex
-	   spin-wait-pause
-	   char-whitespace-p
-	   wrong-argument-count
-	   throw-error
-	   *debugger-function*
-	   *debugger-invoked-stack-frame*
-	   *debugger-condition*
-	   *debugger-dynamic-context*
-	   pprint-clumps
-	   do-trace
-	   do-untrace
-	   malloc-initialize
-	   clos-bootstrap
-	   *forward-generic-function*
-	   halt-cpu
+	   #:object-location
+	   #:object-tag
+	   #:location-in-object-p
+	   #:define-compile-time-variable
+	   #:define-primitive-function
+	   #:without-gc
+	   #:with-stack-check
+	   #:with-symbol-mutex
+	   #:spin-wait-pause
+	   #:char-whitespace-p
+	   #:wrong-argument-count
+	   #:throw-error
+	   #:*debugger-function*
+	   #:*debugger-invoked-stack-frame*
+	   #:*debugger-condition*
+	   #:*debugger-dynamic-context*
+	   #:pprint-clumps
+	   #:do-trace
+	   #:do-untrace
+	   #:malloc-initialize
+	   #:clos-bootstrap
+	   #:*forward-generic-function*
+	   #:halt-cpu
 	   
-	   find-restart-by-index
-	   find-restart-from-context
-	   map-active-restarts
-	   with-basic-restart
+	   #:find-restart-by-index
+	   #:find-restart-from-context
+	   #:map-active-restarts
+	   #:with-basic-restart
 	   
 	   #:dynamic-variable-install
 	   #:dynamic-variable-uninstall
 
 	   #:code-vector
-	   #:vector-u8
-	   #:vector-u16
-	   #:vector-u32
 	   #:pointer
 	   #:basic-restart
-	   #:illegal-object
 	   #:run-time-context
 	   #:run-time-context-class
 	   #:current-run-time-context
@@ -1234,35 +1212,23 @@
 	   device-clear-input
 	   device-finish-record
 	   
-	   translate-program
-	   decode-macro-lambda-list
-	   decode-optional-formal
-	   decode-keyword-formal
-	   parse-declarations-and-body
-	   parse-docstring-declarations-and-body
-	   unfold-circular-list
-	   compute-function-block-name
+	   #:unfold-circular-list
+	   #:translate-program
+	   #:decode-macro-lambda-list
+	   #:decode-optional-formal
+	   #:decode-keyword-formal
+	   #:parse-declarations-and-body
+	   #:parse-docstring-declarations-and-body
+	   #:compute-function-block-name
 	   
-	   load-global-constant
-	   load-global-constant-u32
-	   runtime-context-slot
-	   movitz-accessor
-	   halt-cpu
+	   #:movitz-accessor
 	   #:%object-lispval
 	   #:%lispval-object
 	   #:objects-equalp
-	   word-nibble
-	   &edx
-	   
-	   #:un-backquote
-	   #:backquote-comma
-	   #:backquote-comma-at
-	   #:backquote-comma-dot
+	   #:&edx
 	   
 	   #:memref
 	   #:memref-int
-	   #:memcopy
-	   #:%copy-words
 
 	   #:io-port
 	   #:io-register8
@@ -1383,19 +1349,19 @@
 	   #:*compiler-allow-untagged-word-bits*
 	   )
   (:import-from muerte
-		#:translate-program
-		#:decode-macro-lambda-list
-		#:un-backquote
-		#:backquote-comma
-		#:backquote-comma-at
-		#:backquote-comma-dot
-
-		#:decode-optional-formal
-		#:decode-keyword-formal
-		#:parse-declarations-and-body
-		#:parse-docstring-declarations-and-body
-		#:unfold-circular-list
-		#:compute-function-block-name
+		muerte::translate-program
+		muerte::decode-macro-lambda-list
+		muerte::un-backquote
+		muerte::backquote-comma
+		muerte::backquote-comma-at
+		muerte::backquote-comma-dot
+
+		muerte::decode-optional-formal
+		muerte::decode-keyword-formal
+		muerte::parse-declarations-and-body
+		muerte::parse-docstring-declarations-and-body
+		muerte::unfold-circular-list
+		muerte::compute-function-block-name
 		))