Changeset 8 in CGBLisp for src/infix.lisp

Timestamp:

Jan 26, 2009, 10:23:33 PM (15 years ago)

Author:

Marek Rychlik

Message:

Moving sources into trunk

File:

• src/infix.lisp (modified) (3 diffs)

src/infix.lisp

@@ -277 +277 @@
 (pushnew :infix *features*)
 
-#+debug(proclaim '(optimize (speed 0) (debug 3)))
-#-debug(proclaim '(optimize (speed 3) (debug 0)))
-
-(eval-when (compile load eval)
+(proclaim '(optimize (speed 0) (debug 3)))
+
+(eval-when (:compile-toplevel :load-toplevel :execute)
   (defparameter *version* "1.3  28-JUN-96")
   (defparameter *print-infix-copyright* t
@@ -544 +543 @@
   (gethash token *token-infix-operator-table*))
 
-(eval-when (compile load eval)
+(eval-when (:compile-toplevel :load-toplevel :execute)
   (defmacro define-token-operator (operator-name &key
                                                  (prefix nil prefix-p)
@@ -572 +571 @@
 
 ;;; Readtable definitions for characters, so that the right token is returned.
-(eval-when (compile load eval)
+(eval-when (:compile-toplevel :load-toplevel :execute)
   (defmacro define-character-tokenization (char function)
     `(set-macro-character ,char ,function nil *infix-readtable*)))