REPL Output
;;; ASDF-INSTALL: Downloading 19487 bytes from http://kantz.com/jason/programs/jsgen/jsgen_v0_4.tar.gz to /Users/gwking/temporary/asdf-test/JSGEN.asdf-install-tmp ...
;;; ASDF-INSTALL: Installing /Users/gwking/temporary/asdf-test/JSGEN.asdf-install-tmp in /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/, /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site-systems/
jsgen_v0_4/
jsgen_v0_4/TAGS
jsgen_v0_4/test/
jsgen_v0_4/test/publish.cl
jsgen_v0_4/test/util.sjs
jsgen_v0_4/expressions.lisp
jsgen_v0_4/javascript.lisp
jsgen_v0_4/allegroserve-sjs.lisp
jsgen_v0_4/doc.txt
jsgen_v0_4/notes.txt
jsgen_v0_4/jsgen.asd
jsgen_v0_4/extensions.lisp
jsgen_v0_4/read-enable.lisp
jsgen_v0_4/case-read.lisp
jsgen_v0_4/doc.html
jsgen_v0_4/package.lisp
#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/jsgen_v0_4/"
#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/jsgen_v0_4/"
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/jsgen_v0_4/package.lisp" (written 26 FEB 2006 05:38:29 AM):
; compiling (IN-PACKAGE :COMMON-LISP-USER)
; compiling (DEFPACKAGE :JSGEN ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/jsgen_v0_4/package.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/jsgen_v0_4/read-enable.lisp" (written 26 FEB 2006 05:38:38 AM):
; compiling (IN-PACKAGE "JSGEN")
; compiling (DEFMACRO DEFREADTABLE ...)
; compiling (DEFVAR *READTABLE-STACK* ...)
; compiling (DEFMACRO PUSH-READTABLE ...)
; compiling (DEFMACRO POP-READTABLE ...); in: LAMBDA NIL
; (LET* ()
; (DECLARE (IGNORE READTABLE))
; (BLOCK JSGEN:POP-READTABLE
; '(EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE)
; (IF JSGEN::*READTABLE-STACK*
; (SETQ *READTABLE* #)
; (SETQ *READTABLE* #)))))
;
; caught STYLE-WARNING:
; declaring unknown variable READTABLE to be ignored
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/jsgen_v0_4/read-enable.lisp
; in: DEFMACRO POP-READTABLE
; (DEFMACRO JSGEN:POP-READTABLE ()
; "Restore readtable which was active before last call to ENABLE-READTABLE.
; If there was no such call, the standard readtable is used."
; (DECLARE (IGNORE READTABLE))
; '(EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE)
; (IF JSGEN::*READTABLE-STACK*
; (SETQ *READTABLE* (POP JSGEN::*READTABLE-STACK*))
; (SETQ *READTABLE* (COPY-READTABLE NIL)))))
; --> EVAL-WHEN SB-C::%DEFMACRO SB-C::%DEFMACRO FUNCTION LET*
; ==>
; (LET* ()
; (DECLARE (IGNORE READTABLE))
; (BLOCK JSGEN:POP-READTABLE
; '(EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE)
; (IF JSGEN::*READTABLE-STACK*
; (SETQ *READTABLE* #)
; (SETQ *READTABLE* #)))))
;
; caught STYLE-WARNING:
; declaring unknown variable READTABLE to be ignored
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/jsgen_v0_4/read-enable.fasl written
; compilation finished in 0:00:01
WARNING:
COMPILE-FILE warned while performing #<COMPILE-OP NIL {108A4C99}> on
#<CL-SOURCE-FILE "read-enable" {1089F179}>.
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/jsgen_v0_4/case-read.lisp" (written 25 FEB 2006 06:50:39 AM):
; compiling (IN-PACKAGE :JSGEN)
; compiling (DEFUN PRESERVE-CASE-DISPATCH ...)
; compiling (DEFREADTABLE *PRESERVE-CASE-READTABLE* ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/jsgen_v0_4/case-read.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/jsgen_v0_4/expressions.lisp" (written 26 FEB 2006 05:37:43 AM):
; compiling (IN-PACKAGE :JSGEN)
; compiling (DEFUN PRIMITIVEP ...)
; compiling (DEFUN EXPRESSIONP ...)
; compiling (DEFUN OPERATOR ...)
; compiling (DEFUN ARGUMENTS ...)
; compiling (DEFUN OPERATOR-TYPE ...)
; compiling (DEFUN (SETF OPERATOR-TYPE) ...)
; compiling (DEFUN PRETTY-FUNCTION ...)
; compiling (DEFUN (SETF PRETTY-FUNCTION) ...)
; compiling (DEFUN PRINT-FUNCTION ...)
; compiling (DEFUN (SETF PRINT-FUNCTION) ...)
; compiling (DEFUN MACRO-EXPANDER ...)
; compiling (DEFUN (SETF MACRO-EXPANDER) ...)
; compiling (DEFPARAMETER *OUTPUT-STREAM* ...)
; compiling (DEFUN PRINT-EXPRESSION ...)
; compiling (DEFPARAMETER *SYMBOL-KEY* ...)
; compiling (DEFUN DASH-TO-UNDERSCORE ...)
; compiling (DEFPARAMETER *FUNCTION-CALL-PRINTER* ...)
; compiling (DEFUN PRINT-FUNCTION-CALL ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/jsgen_v0_4/expressions.lisp
; in: DEFUN PRINT-FUNCTION-CALL
; (LET ((JSGEN::LENGTH=1 (= (LENGTH JSGEN::ARGS) 1)))
; (COND
; (*PRINT-PRETTY* (WRITE-CHAR #\ STREAM)
; (PPRINT-LOGICAL-BLOCK (STREAM NIL :PREFIX "(" :SUFFIX ")")
; (WHEN JSGEN::ARGS # #)))
; (T (WRITE-CHAR #\( STREAM)
; (WHEN JSGEN::ARGS (JSGEN::PRINT-EXPRESSION # STREAM) (DOLIST # # #))
; (WRITE-CHAR #\) STREAM))))
;
; caught STYLE-WARNING:
; The variable LENGTH=1 is defined but never used.
; compiling (DEFUN PRINT-BLOCK ...)
; compiling (DEFUN PPRINT-INFIX ...)
; compiling (DEFUN PRINT-INFIX ...)
; compiling (DEFUN DEF-INFIX-OPERATOR ...)
; compiling (DEFMACRO DEF-SPECIAL-FORM-STATEMENT ...)
; compiling (DEFMACRO DEF-SPECIAL-FORM-EXPRESSION ...)
; compiling (DEFMACRO DEF-SPECIAL-FORM-PRETTY ...)
; compiling (DEFMACRO DEF-SPECIAL-FORM-PRINT ...)
; compiling (DEFMACRO DEF-MACRO-FORM ...)
; compiling (DEFPARAMETER *NEXT-GENVAR-ID* ...)
; compiling (DEFUN GENVAR ...)
; compiling (DEFUN MACROEXPAND-EXPRESSION ...)
; compiling (DEFUN MKSTR ...)
; compiling (DEFUN SYMB ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/jsgen_v0_4/expressions.fasl written
; compilation finished in 0:00:00
WARNING:
COMPILE-FILE warned while performing #<COMPILE-OP NIL {40006DC9}> on
#<CL-SOURCE-FILE "expressions" {40006DD9}>.
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/jsgen_v0_4/javascript.lisp" (written 06 MAR 2006 05:35:07 AM):
; compiling (IN-PACKAGE :JSGEN)
; compiling (DEFUN JS ...)
; compiling (DEFUN JS-STRING ...)
; compiling (DEFUN JS-COMPILE-FILE ...)
; compiling (DOLIST (OP #) ...)
; compiling (DEF-SPECIAL-FORM-EXPRESSION |.|)
; compiling (DEF-SPECIAL-FORM-PRINT |.| ...)
; compiling (DEF-SPECIAL-FORM-EXPRESSION ++)
; compiling (DEF-SPECIAL-FORM-PRINT ++ ...)
; compiling (DEF-SPECIAL-FORM-EXPRESSION _++)
; compiling (DEF-SPECIAL-FORM-PRINT _++ ...)
; compiling (DEF-SPECIAL-FORM-EXPRESSION --)
; compiling (DEF-SPECIAL-FORM-PRINT -- ...)
; compiling (DEF-SPECIAL-FORM-EXPRESSION _--)
; compiling (DEF-SPECIAL-FORM-PRINT _-- ...)
; compiling (DEF-SPECIAL-FORM-EXPRESSION -)
; compiling (DEF-SPECIAL-FORM-PRINT - ...)
; compiling (DEF-SPECIAL-FORM-PRETTY - ...)
; compiling (DEF-SPECIAL-FORM-EXPRESSION ?)
; compiling (DEF-SPECIAL-FORM-PRINT ? ...)
; compiling (DEF-SPECIAL-FORM-EXPRESSION !)
; compiling (DEF-SPECIAL-FORM-PRINT ! ...)
; compiling (DEF-SPECIAL-FORM-EXPRESSION ~)
; compiling (DEF-SPECIAL-FORM-PRINT ~ ...)
; compiling (DEF-SPECIAL-FORM-EXPRESSION |aref|)
; compiling (DEF-SPECIAL-FORM-PRINT |aref| ...)
; compiling (DEF-SPECIAL-FORM-EXPRESSION |array|)
; compiling (DEF-SPECIAL-FORM-PRINT |array| ...)
; compiling (DEF-SPECIAL-FORM-PRETTY |array| ...)
; compiling (DEF-SPECIAL-FORM-STATEMENT |break|)
; compiling (DEF-SPECIAL-FORM-PRINT |break| ...)
; compiling (DEF-SPECIAL-FORM-STATEMENT |cond|)
; compiling (DEF-SPECIAL-FORM-PRINT |cond| ...)
; compiling (DEF-SPECIAL-FORM-PRETTY |cond| ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/jsgen_v0_4/javascript.lisp
; in: DEF-SPECIAL-FORM-PRETTY |cond|
; (PPRINT-LOGICAL-BLOCK (STREAM NIL)
; (JSGEN::PRINT-EXPRESSION JSGEN::TEST STREAM))
; --> SB-PRETTY::WITH-PRETTY-STREAM FLET LET IF CATCH BLOCK
; --> SB-C::%WITHIN-CLEANUP LET SB-PRETTY::MAKE-PRETTY-STREAM
; ==>
; STREAM
;
; note: deleting unreachable code
; (PPRINT-LOGICAL-BLOCK (STREAM NIL :PREFIX "(" :SUFFIX ")")
; (JSGEN::PRINT-EXPRESSION JSGEN::TEST STREAM))
; --> SB-PRETTY::WITH-PRETTY-STREAM FLET LET IF CATCH BLOCK
; --> SB-C::%WITHIN-CLEANUP LET SB-PRETTY::MAKE-PRETTY-STREAM
; ==>
; STREAM
;
; note: deleting unreachable code
; compiling (DEF-SPECIAL-FORM-STATEMENT |continue|)
; compiling (DEF-SPECIAL-FORM-PRINT |continue| ...)
; compiling (DEF-SPECIAL-FORM-STATEMENT |do|)
; compiling (DEF-SPECIAL-FORM-PRINT |do| ...)
; compiling (DEF-SPECIAL-FORM-PRETTY |do| ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/jsgen_v0_4/javascript.lisp
; in: DEF-SPECIAL-FORM-PRETTY |do|
; (PPRINT-LOGICAL-BLOCK (STREAM NIL :PREFIX "(" :SUFFIX ")")
; (JSGEN::PRINT-EXPRESSION (SECOND (CAR (LAST JSGEN::ARGS))) STREAM))
; --> SB-PRETTY::WITH-PRETTY-STREAM FLET LET IF CATCH BLOCK
; --> SB-C::%WITHIN-CLEANUP LET SB-PRETTY::MAKE-PRETTY-STREAM
; ==>
; STREAM
;
; note: deleting unreachable code
; compiling (DEF-SPECIAL-FORM-STATEMENT |for|)
; compiling (DEF-SPECIAL-FORM-PRINT |for| ...)
; compiling (DEF-SPECIAL-FORM-PRETTY |for| ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/jsgen_v0_4/javascript.lisp
; in: DEF-SPECIAL-FORM-PRETTY |for|
; (PPRINT-LOGICAL-BLOCK (STREAM NIL :PREFIX "(" :SUFFIX ")")
; (COND
; ((EQ JSGEN::TEST 'JSGEN:|in|)
; (JSGEN::PRINT-EXPRESSION JSGEN::INIT-STATEMENT STREAM)
; (WRITE-STRING " in " STREAM)
; (JSGEN::PRINT-EXPRESSION JSGEN::UPDATE STREAM))
; (T (JSGEN::PRINT-EXPRESSION JSGEN::INIT-STATEMENT STREAM)
; (WRITE-STRING " " STREAM)
; (PPRINT-NEWLINE :LINEAR STREAM)
; (JSGEN::PRINT-EXPRESSION JSGEN::TEST STREAM)
; (WRITE-STRING "; " STREAM)
; (PPRINT-NEWLINE :LINEAR STREAM)
; (JSGEN::PRINT-EXPRESSION JSGEN::UPDATE STREAM))))
; --> SB-PRETTY::WITH-PRETTY-STREAM FLET LET IF CATCH BLOCK
; --> SB-C::%WITHIN-CLEANUP LET SB-PRETTY::MAKE-PRETTY-STREAM
; ==>
; STREAM
;
; note: deleting unreachable code
; compiling (DEF-SPECIAL-FORM-EXPRESSION |function|)
; compiling (DEF-SPECIAL-FORM-PRINT |function| ...)
; compiling (DEF-SPECIAL-FORM-PRETTY |function| ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/jsgen_v0_4/javascript.lisp
; in: DEF-SPECIAL-FORM-PRETTY |function|
; (PPRINT-LOGICAL-BLOCK (STREAM (POP JSGEN::ARGS) :PREFIX "(" :SUFFIX ")")
; (PPRINT-EXIT-IF-LIST-EXHAUSTED)
; (JSGEN::PRINT-EXPRESSION (PPRINT-POP) STREAM)
; (LOOP (PPRINT-EXIT-IF-LIST-EXHAUSTED)
; (WRITE-CHAR #\, STREAM)
; (WRITE-CHAR #\ STREAM)
; (PPRINT-NEWLINE :LINEAR STREAM)
; (JSGEN::PRINT-EXPRESSION (PPRINT-POP) STREAM)))
; --> SB-PRETTY::WITH-PRETTY-STREAM FLET LET IF CATCH BLOCK
; --> SB-C::%WITHIN-CLEANUP LET SB-PRETTY::MAKE-PRETTY-STREAM
; ==>
; STREAM
;
; note: deleting unreachable code
; compiling (DEF-SPECIAL-FORM-STATEMENT |label|)
; compiling (DEF-SPECIAL-FORM-PRINT |label| ...)
; compiling (DEF-SPECIAL-FORM-PRETTY |label| ...)
; compiling (DEF-SPECIAL-FORM-EXPRESSION |new|)
; compiling (DEF-SPECIAL-FORM-PRINT |new| ...)
; compiling (DEF-SPECIAL-FORM-EXPRESSION |object|)
; compiling (DEF-SPECIAL-FORM-PRINT |object| ...)
; compiling (DEF-SPECIAL-FORM-PRETTY |object| ...)
; compiling (DEF-SPECIAL-FORM-STATEMENT |return|)
; compiling (DEF-SPECIAL-FORM-PRINT |return| ...)
; compiling (DEF-SPECIAL-FORM-STATEMENT |switch|)
; compiling (DEF-SPECIAL-FORM-PRINT |switch| ...)
; compiling (DEF-SPECIAL-FORM-PRETTY |switch| ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/jsgen_v0_4/javascript.lisp
; in: DEF-SPECIAL-FORM-PRETTY |switch|
; (PPRINT-LOGICAL-BLOCK (STREAM NIL :PREFIX "(" :SUFFIX ")")
; (JSGEN::PRINT-EXPRESSION (POP JSGEN::ARGS) STREAM))
; --> SB-PRETTY::WITH-PRETTY-STREAM FLET LET IF CATCH BLOCK
; --> SB-C::%WITHIN-CLEANUP LET SB-PRETTY::MAKE-PRETTY-STREAM
; ==>
; STREAM
;
; note: deleting unreachable code
; compiling (DEF-SPECIAL-FORM-STATEMENT |case|)
; compiling (DEF-SPECIAL-FORM-PRINT |case| ...)
; compiling (DEF-SPECIAL-FORM-PRETTY |case| ...)
; compiling (DEF-SPECIAL-FORM-STATEMENT |default|)
; compiling (DEF-SPECIAL-FORM-PRINT |default| ...)
; compiling (DEF-SPECIAL-FORM-PRETTY |default| ...)
; compiling (DEF-SPECIAL-FORM-STATEMENT |try|)
; compiling (DEF-SPECIAL-FORM-PRINT |try| ...)
; compiling (DEF-SPECIAL-FORM-PRETTY |try| ...)
; compiling (DEF-SPECIAL-FORM-STATEMENT |catch|)
; compiling (DEF-SPECIAL-FORM-PRINT |catch| ...)
; compiling (DEF-SPECIAL-FORM-PRETTY |catch| ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/jsgen_v0_4/javascript.lisp
; in: DEF-SPECIAL-FORM-PRETTY |catch|
; (PPRINT-LOGICAL-BLOCK (STREAM NIL :PREFIX "(" :SUFFIX ")")
; (JSGEN::PRINT-EXPRESSION (CAR JSGEN::ARGS) STREAM))
; --> SB-PRETTY::WITH-PRETTY-STREAM FLET LET IF CATCH BLOCK
; --> SB-C::%WITHIN-CLEANUP LET SB-PRETTY::MAKE-PRETTY-STREAM
; ==>
; STREAM
;
; note: deleting unreachable code
; compiling (DEF-SPECIAL-FORM-STATEMENT |finally|)
; compiling (DEF-SPECIAL-FORM-PRINT |catch| ...)
; compiling (DEF-SPECIAL-FORM-PRETTY |finally| ...)
; compiling (DEF-SPECIAL-FORM-STATEMENT |var|)
; compiling (DEF-SPECIAL-FORM-PRINT |var| ...)
; compiling (DEF-SPECIAL-FORM-STATEMENT |while|)
; compiling (DEF-SPECIAL-FORM-PRINT |while| ...)
; compiling (DEF-SPECIAL-FORM-PRETTY |while| ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/jsgen_v0_4/javascript.lisp
; in: DEF-SPECIAL-FORM-PRETTY |while|
; (PPRINT-LOGICAL-BLOCK (STREAM NIL :PREFIX "(" :SUFFIX ")")
; (JSGEN::PRINT-EXPRESSION (POP JSGEN::ARGS) STREAM))
; --> SB-PRETTY::WITH-PRETTY-STREAM FLET LET IF CATCH BLOCK
; --> SB-C::%WITHIN-CLEANUP LET SB-PRETTY::MAKE-PRETTY-STREAM
; ==>
; STREAM
;
; note: deleting unreachable code
; compiling (DEF-SPECIAL-FORM-STATEMENT |with|)
; compiling (DEF-SPECIAL-FORM-PRINT |with| ...)
; compiling (DEF-SPECIAL-FORM-PRETTY |with| ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/jsgen_v0_4/javascript.lisp
; in: DEF-SPECIAL-FORM-PRETTY |with|
; (PPRINT-LOGICAL-BLOCK (STREAM NIL :PREFIX "(" :SUFFIX ")")
; (JSGEN::PRINT-EXPRESSION (POP JSGEN::ARGS) STREAM))
; --> SB-PRETTY::WITH-PRETTY-STREAM FLET LET IF CATCH BLOCK
; --> SB-C::%WITHIN-CLEANUP LET SB-PRETTY::MAKE-PRETTY-STREAM
; ==>
; STREAM
;
; note: deleting unreachable code
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/jsgen_v0_4/javascript.fasl written
; compilation finished in 0:00:03
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/jsgen_v0_4/extensions.lisp" (written 06 MAR 2006 05:34:10 AM):
; compiling (IN-PACKAGE :JSGEN)
; compiling (DEF-SPECIAL-FORM-STATEMENT |begin|)
; compiling (DEF-SPECIAL-FORM-PRINT |begin| ...)
; compiling (DEF-SPECIAL-FORM-PRETTY |begin| ...)
; compiling (DEF-MACRO-FORM |or| ...)
; compiling (DEF-MACRO-FORM |and| ...)
; compiling (DEF-MACRO-FORM |not| ...)
; compiling (DEF-MACRO-FORM |when| ...)
; compiling (DEF-SPECIAL-FORM-EXPRESSION |esc_str|)
; compiling (DEF-SPECIAL-FORM-PRINT |esc_str| ...)
; compiling (DEF-MACRO-FORM |dotimes| ...)
; compiling (DEF-MACRO-FORM |doarray| ...)
; compiling (DEFUN MAKE-OPEN-TAG ...)
; compiling (DEFUN MAKE-CLOSE-TAG ...)
; compiling (DEFUN HTML-FORM-P ...)
; compiling (DEF-MACRO-FORM |html| ...)
; compiling (DEFUN INSERT-BQ-NESTING ...)
; compiling (DEF-MACRO-FORM |bq| ...)
; compiling (DEF-MACRO-FORM |uq| ...)
; compiling (DEF-SPECIAL-FORM-EXPRESSION |%bq|)
; compiling (DEFUN PRINT-ESC-QUOTE ...)
; compiling (DEF-SPECIAL-FORM-PRINT |%bq| ...)
; compiling (DEF-SPECIAL-FORM-PRINT |%uq| ...)
; compiling (DEF-MACRO-FORM |set| ...)
; compiling (DEF-MACRO-FORM |get| ...)
; compiling (DEF-MACRO-FORM |mfunction| ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/jsgen_v0_4/extensions.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/jsgen_v0_4/allegroserve-sjs.lisp" (written 25 FEB 2006 06:50:39 AM):
; compiling (IN-PACKAGE :NET.ASERVE)
; compilation aborted after 0:00:00
;
; compilation unit aborted
; caught 2 fatal ERROR conditions
; caught 3 STYLE-WARNING conditions
; printed 9 notes
The name :NET.ASERVE does not designate any package.
