Permalink
Browse files

[languages/lisp]

Use full name as a workaround for *package* not being considered.


git-svn-id: https://svn.parrot.org/parrot/trunk@19480 d31e2699-5ff4-0310-a27c-f18f2fbe73fe
  • Loading branch information...
1 parent fc7d005 commit 7b0888ace6904ebec996033b5c6f8c51d8ba0a31 @bschmalhofer bschmalhofer committed Jun 29, 2007
Showing with 40 additions and 40 deletions.
  1. +40 −40 languages/lisp/lisp/bootstrap.l
@@ -39,52 +39,52 @@
;; Set the current package to SYSTEM so we don't have to prefix symbols.
;; (cl:setq *package* (sys:%find-package "SYSTEM"))
-;; (%use-package (%find-package "SYSTEM") (%find-package "COMMON-LISP"))
-;;
+(sys:%use-package (sys:%find-package "SYSTEM") (sys:%find-package "COMMON-LISP"))
+
;; Create a hash table used to store all the dispatching macros.
-;; (setq *dispatching-macros* (%make-hash-table))
-;;
+(cl:setq *dispatching-macros* (sys:%make-hash-table))
+
;; #'xxx macro. See CLtL section 2.4.8.2 for details.
-;; (%set-hash *dispatching-macros*
-;; "'"
-;; (function
-;; (lambda (stream char)
-;; (list 'function (read stream)))))
-;;
+(sys:%set-hash *dispatching-macros*
+ "'"
+ (function
+ (lambda (stream char)
+ (list 'function (read stream)))))
+
;; #.xxx macro. See CLtL section 2.4.8.6 for details.
-;; (setq *read-eval* t)
-;; (%set-hash *dispatching-macros*
-;; "."
-;; (function
-;; (lambda (stream char)
-;; (if *read-eval*
-;; (eval (read stream))
-;; (error "reader-error" "*READ-EVAL* is NIL")))))
-;;
+(cl:setq *read-eval* t)
+(sys:%set-hash *dispatching-macros*
+ "."
+ (function
+ (lambda (stream char)
+ (if *read-eval*
+ (eval (read stream))
+ (error "reader-error" "*READ-EVAL* is NIL")))))
+
;; #< macro. See CLtL section 2.4.8.20 for details.
-;; (%set-hash *dispatching-macros*
-;; "<"
-;; (function
-;; (lambda (stream char)
-;; (error "reader-error" "#< is invalid syntax"))))
-;;
+(sys:%set-hash *dispatching-macros*
+ "<"
+ (function
+ (lambda (stream char)
+ (error "reader-error" "#< is invalid syntax"))))
+
;; ##<Space> macro. See CLtL section 2.4.8.21 for details.
-;; (%set-hash *dispatching-macros*
-;; " "
-;; (function
-;; (lambda (stream char)
-;; (error "reader-error" "#| | is invalid syntax"))))
-;;
+(sys:%set-hash *dispatching-macros*
+ " "
+ (function
+ (lambda (stream char)
+ (error "reader-error" "#| | is invalid syntax"))))
+
;; #) macro. See CLtL section 2.4.8.22 for details.
-;; (%set-hash *dispatching-macros*
-;; ")"
-;; (function
-;; (lambda (stream char)
-;; (error "reader-error" "#) is invalid syntax"))))
-;;
-;; ; (setq *macroexpand-hook* #'(lambda (fn form env)
-;; ; (apply fn (list form env))))
-;;
+(sys:%set-hash *dispatching-macros*
+ ")"
+ (function
+ (lambda (stream char)
+ (error "reader-error" "#) is invalid syntax"))))
+
+; (setq *macroexpand-hook* #'(lambda (fn form env)
+; (apply fn (list form env))))
+
;; Create the KEYWORD package.
(sys:%make-package "KEYWORD")

0 comments on commit 7b0888a

Please sign in to comment.