cl-who on sbcl-0.9.9-darwin-ppc - Details

Started at:2006-04-16 00:20:14
Ended at:2006-04-16 00:20:24
Elapsed time (seconds):10
Most recent change:2005-08-02 14:17:43
Most recent file:/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-who-0.6.0/doc/index.html

REPL Output

;;; ASDF-INSTALL: Downloading 18024 bytes from http://weitz.de/files/cl-who.tar.gz to /Users/gwking/temporary/asdf-test/CL-WHO.asdf-install-tmp ...

;;; ASDF-INSTALL: Installing /Users/gwking/temporary/asdf-test/CL-WHO.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/
cl-who-0.6.0/
cl-who-0.6.0/doc/
cl-who-0.6.0/doc/index.html
cl-who-0.6.0/CHANGELOG
cl-who-0.6.0/INSTALLATION
cl-who-0.6.0/cl-who.asd
cl-who-0.6.0/cl-who.system
cl-who-0.6.0/load.lisp
cl-who-0.6.0/packages.lisp
cl-who-0.6.0/who.lisp

#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-who-0.6.0/" 
#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-who-0.6.0/" 
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-who-0.6.0/packages.lisp" (written 02 AUG 2005 02:17:41 PM):
; compiling (IN-PACKAGE #:CL-USER)
; compiling (DEFPACKAGE #:CL-WHO ...)
; compiling (PUSHNEW :CL-WHO ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-who-0.6.0/packages.fasl written
; compilation finished in 0:00:01
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-who-0.6.0/who.lisp" (written 02 AUG 2005 02:17:41 PM):
; compiling (IN-PACKAGE #:CL-WHO)
; compiling (DEFVAR *PROLOGUE* ...)
; compiling (DEFPARAMETER *ESCAPE-CHAR-P* ...)
; compiling (DEFPARAMETER *INDENT* ...)
; compiling (DEFVAR *HTML-MODE* ...)
; compiling (DEFPARAMETER *ATTRIBUTE-QUOTE-CHAR* ...)
; compiling (DEFPARAMETER *EMPTY-TAG-END* ...)
; compiling (UNLESS (BOUNDP #) ...)
; compiling (UNLESS (BOUNDP #) ...)
; compiling (DEFMACRO N-SPACES ...)
; compiling (DEFUN HTML-MODE ...)
; compiling (DEFUN (SETF HTML-MODE) ...)
; compiling (DEFUN ESCAPE-STRING ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-who-0.6.0/who.lisp
; in: DEFUN ESCAPE-STRING
;     (POSITION-IF CL-WHO::TEST STRING)
; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> SB-KERNEL:%FIND-POSITION-IF 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN SB-C:PREDICATE)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; due to type uncertainty:
;   The first argument is a (OR FUNCTION SYMBOL), not a FUNCTION.

; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; ==>
;   (SB-KERNEL:%FIND-POSITION-IF
;    (SB-KERNEL:%COERCE-CALLABLE-TO-FUN SB-C:PREDICATE)
;    SEQUENCE
;    SB-C::FROM-END
;    SB-C::START
;    SB-C::END
;    (SB-KERNEL:EFFECTIVE-FIND-POSITION-KEY SB-C::KEY))
; 
; note: unable to
;   expand inline
; due to type uncertainty:
;   The second argument is a SEQUENCE, not a LIST.
; 
; note: unable to
;   expand inline
; due to type uncertainty:
;   The second argument is a SEQUENCE, not a VECTOR.

;     (LENGTH STRING)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.

;     (CHAR STRING CL-WHO::POS)
; --> AREF LET* 
; ==>
;   (ARRAY-DIMENSION ARRAY 0)
; 
; note: unable to optimize because: can't tell whether array is simple

; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (FORMAT CL-WHO::S CL-WHO::FORMAT-STRING (CHAR-CODE CHAR))
; 
; note: unable to optimize because: The control string is not a constant.

;     (POSITION-IF CL-WHO::TEST STRING :START CL-WHO::OLD-POS)
; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> SB-KERNEL:%FIND-POSITION-IF 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN SB-C:PREDICATE)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; due to type uncertainty:
;   The first argument is a (OR FUNCTION SYMBOL), not a FUNCTION.

; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; ==>
;   (SB-KERNEL:%FIND-POSITION-IF
;    (SB-KERNEL:%COERCE-CALLABLE-TO-FUN SB-C:PREDICATE)
;    SEQUENCE
;    SB-C::FROM-END
;    SB-C::START
;    SB-C::END
;    (SB-KERNEL:EFFECTIVE-FIND-POSITION-KEY SB-C::KEY))
; 
; note: unable to
;   expand inline
; due to type uncertainty:
;   The second argument is a SEQUENCE, not a LIST.
; 
; note: unable to
;   expand inline
; due to type uncertainty:
;   The second argument is a SEQUENCE, not a VECTOR.

; compiling (DEFUN ESCAPE-STRING-MINIMAL ...)
; compiling (DEFUN ESCAPE-STRING-MINIMAL-PLUS-QUOTES ...)
; compiling (DEFUN ESCAPE-STRING-ISO-8859 ...)
; compiling (DEFUN ESCAPE-STRING-ALL ...)
; compiling (DEFUN PROCESS-TAG ...)
; compiling (DEFUN CONVERT-ATTRIBUTES ...)
; compiling (DEFGENERIC CONVERT-TAG-TO-STRING-LIST ...)
; compiling (DEFMETHOD CONVERT-TAG-TO-STRING-LIST ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-who-0.6.0/who.lisp
; in: DEFMETHOD CONVERT-TAG-TO-STRING-LIST (T T T T)
;     (CL-WHO::N-SPACES CL-WHO::*INDENT*)
; ==>
;   (MAKE-ARRAY CL-WHO::*INDENT*
;               :ELEMENT-TYPE
;               'BASE-CHAR
;               :DISPLACED-TO
;               CL-WHO::+SPACES+
;               :DISPLACED-INDEX-OFFSET
;               0)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MOD 536870911) CONS NULL), not a INTEGER.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MOD 536870911) CONS NULL), not a LIST.

;     (+ 2 CL-WHO::*INDENT*)
; ==>
;   (+ SB-C::Y 2)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).

;     (FUNCALL CL-WHO::BODY-FN CL-WHO::BODY)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN FUNCTION)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; due to type uncertainty:
;   The first argument is a (OR FUNCTION SYMBOL), not a FUNCTION.
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; due to type uncertainty:
;   The first argument is a (OR FUNCTION SYMBOL), not a FUNCTION.

;     (CL-WHO::N-SPACES CL-WHO::*INDENT*)
; ==>
;   (MAKE-ARRAY CL-WHO::*INDENT*
;               :ELEMENT-TYPE
;               'BASE-CHAR
;               :DISPLACED-TO
;               CL-WHO::+SPACES+
;               :DISPLACED-INDEX-OFFSET
;               0)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MOD 536870911) CONS NULL), not a INTEGER.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MOD 536870911) CONS NULL), not a LIST.

;     (+ 2 CL-WHO::*INDENT*)
; ==>
;   (+ SB-C::Y 2)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.

; compiling (DEFUN APPLY-TO-TREE ...)
; compiling (DEFUN REPLACE-HTM ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-who-0.6.0/who.lisp
; in: DEFUN REPLACE-HTM
;     (FUNCALL CL-WHO::TRANSFORMATION (CDR CL-WHO::ELEMENT))
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN FUNCTION)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; due to type uncertainty:
;   The first argument is a (OR FUNCTION SYMBOL), not a FUNCTION.

; compiling (DEFUN TREE-TO-TEMPLATE ...)
; compiling (DEFUN STRING-LIST-TO-STRING ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-who-0.6.0/who.lisp
; in: DEFUN STRING-LIST-TO-STRING
;     (LENGTH STRING)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.

;     (REPLACE CL-WHO::RESULT-STRING STRING :START1 CL-WHO::CURR-POS)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a SEQUENCE, not a (SIMPLE-ARRAY CHARACTER (*)).

;     (LENGTH STRING)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.

;     (INCF CL-WHO::TOTAL-SIZE (LENGTH STRING))
; --> LET* 
; ==>
;   (+ CL-WHO::TOTAL-SIZE #:G429)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES UNSIGNED-BYTE
;                               &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do safe inline fixnum arithmetic (cost 4) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES UNSIGNED-BYTE
;                               &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.

;     (INCF CL-WHO::CURR-POS (LENGTH STRING))
; --> LET* 
; ==>
;   (SETQ CL-WHO::CURR-POS #:G432)
; 
; note: doing signed word to integer coercion (cost 20) to CURR-POS

; compiling (DEFUN CONC ...)
; compiling (DEFUN TREE-TO-COMMANDS-AUX ...)
; compiling (DEFUN TREE-TO-COMMANDS ...)
; compiling (DEFMACRO WITH-HTML-OUTPUT ...)
; compiling (DEFMACRO WITH-HTML-OUTPUT-TO-STRING ...); in: LAMBDA NIL
;     (LET* ((CL-WHO::VAR (CAR #:SUBLIST-534))
;          (CL-WHO::STRING-FORM (IF (NOT #) (CAR #) NIL))
;          (CL-WHO::ELEMENT-TYPE
;           (IF #:SUPPLIEDP-537
;               (SB-KERNEL::LOOKUP-KEYWORD ':ELEMENT-TYPE #:KEYWORDS-536)
;               ''CHARACTER))
;          (CL-WHO::PROLOGUE
;           (IF (SB-KERNEL::KEYWORD-SUPPLIED-P :PROLOGUE #:KEYWORDS-536)
;               (SB-KERNEL::LOOKUP-KEYWORD :PROLOGUE #:KEYWORDS-536)
;               NIL))
;          (CL-WHO::INDENT
;           (IF (SB-KERNEL::KEYWORD-SUPPLIED-P :INDENT #:KEYWORDS-536)
;               (SB-KERNEL::LOOKUP-KEYWORD :INDENT #:KEYWORDS-536)
;               NIL))
;          (CL-WHO::BODY (CDR (CDR #:WHOLE532))))
;     (BLOCK CL-WHO:WITH-HTML-OUTPUT-TO-STRING
;       `(WITH-OUTPUT-TO-STRING (,CL-WHO::VAR ,CL-WHO::STRING-FORM)
;          (CL-WHO:WITH-HTML-OUTPUT
;           (,CL-WHO::VAR ,NIL :PROLOGUE ,CL-WHO::PROLOGUE :INDENT
;            ,CL-WHO::INDENT)
;           ,@CL-WHO::BODY))))
; 
; caught STYLE-WARNING:
;   The variable ELEMENT-TYPE is defined but never used.

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-who-0.6.0/who.lisp
; in: DEFMACRO WITH-HTML-OUTPUT-TO-STRING
;     (DEFMACRO CL-WHO:WITH-HTML-OUTPUT-TO-STRING
;             ((CL-WHO::VAR
;               &OPTIONAL CL-WHO::STRING-FORM
;               &KEY (CL-WHO::ELEMENT-TYPE ''CHARACTER) CL-WHO::PROLOGUE
;               CL-WHO::INDENT)
;              &BODY CL-WHO::BODY)
;     "Transform the enclosed BODY consisting of HTML as s-expressions
; into Lisp code which creates the corresponding HTML as a string."
;     `(WITH-OUTPUT-TO-STRING (,CL-WHO::VAR ,CL-WHO::STRING-FORM)
;        (CL-WHO:WITH-HTML-OUTPUT
;         (,CL-WHO::VAR ,NIL :PROLOGUE ,CL-WHO::PROLOGUE :INDENT ,CL-WHO::INDENT)
;         ,@CL-WHO::BODY)))
; --> EVAL-WHEN SB-C::%DEFMACRO SB-C::%DEFMACRO FUNCTION LET* 
; ==>
;   (LET* ((CL-WHO::VAR (CAR #:SUBLIST-534))
;          (CL-WHO::STRING-FORM (IF (NOT #) (CAR #) NIL))
;          (CL-WHO::ELEMENT-TYPE
;           (IF #:SUPPLIEDP-537
;               (SB-KERNEL::LOOKUP-KEYWORD ':ELEMENT-TYPE #:KEYWORDS-536)
;               ''CHARACTER))
;          (CL-WHO::PROLOGUE
;           (IF (SB-KERNEL::KEYWORD-SUPPLIED-P :PROLOGUE #:KEYWORDS-536)
;               (SB-KERNEL::LOOKUP-KEYWORD :PROLOGUE #:KEYWORDS-536)
;               NIL))
;          (CL-WHO::INDENT
;           (IF (SB-KERNEL::KEYWORD-SUPPLIED-P :INDENT #:KEYWORDS-536)
;               (SB-KERNEL::LOOKUP-KEYWORD :INDENT #:KEYWORDS-536)
;               NIL))
;          (CL-WHO::BODY (CDR (CDR #:WHOLE532))))
;     (BLOCK CL-WHO:WITH-HTML-OUTPUT-TO-STRING
;       `(WITH-OUTPUT-TO-STRING (,CL-WHO::VAR ,CL-WHO::STRING-FORM)
;          (CL-WHO:WITH-HTML-OUTPUT
;           (,CL-WHO::VAR ,NIL :PROLOGUE ,CL-WHO::PROLOGUE :INDENT
;            ,CL-WHO::INDENT)
;           ,@CL-WHO::BODY))))
; 
; caught STYLE-WARNING:
;   The variable ELEMENT-TYPE is defined but never used.

; compiling (DEFMACRO SHOW-HTML-EXPANSION ...)
; compiling (DEFVAR *HYPERDOC-BASE-URI* ...)
; compiling (LET (#) ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-who-0.6.0/who.fasl written
; compilation finished in 0:00:01
WARNING:
   COMPILE-FILE warned while performing #<COMPILE-OP NIL {40006D21}> on
   #<CL-SOURCE-FILE "who" {40006D31}>.
; 
; compilation unit finished
;   caught 2 STYLE-WARNING conditions
;   printed 30 notes