REPL Output
;;; ASDF-INSTALL: Downloading 12575 bytes from http://ftp.linux.org.uk/pub/lisp/cclan/net-telent-date.tar.gz to /Users/gwking/temporary/asdf-test/NET-TELENT-DATE.asdf-install-tmp ...
;;; ASDF-INSTALL: Installing /Users/gwking/temporary/asdf-test/NET-TELENT-DATE.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/
net-telent-date_0.42/
net-telent-date_0.42/debian/
net-telent-date_0.42/debian/postinst
net-telent-date_0.42/debian/rules
net-telent-date_0.42/debian/control
net-telent-date_0.42/debian/docs
net-telent-date_0.42/debian/dirs
net-telent-date_0.42/debian/prerm
net-telent-date_0.42/debian/copyright
net-telent-date_0.42/debian/changelog
net-telent-date_0.42/debian/links
net-telent-date_0.42/README
net-telent-date_0.42/maintainer-Makefile
net-telent-date_0.42/parse-time.lisp
net-telent-date_0.42/defpackage.lisp
net-telent-date_0.42/date.lisp
net-telent-date_0.42/net-telent-date.system
net-telent-date_0.42/net-telent-date.asd
net-telent-date_0.42/make-makefile.lisp
net-telent-date_0.42/tests.lisp
#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/net-telent-date_0.42/"
#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/net-telent-date_0.42/"
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/net-telent-date_0.42/defpackage.lisp" (written 26 MAY 2005 09:03:15 PM):
; compiling (DEFPACKAGE :NET.TELENT.DATE ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/net-telent-date_0.42/defpackage.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/net-telent-date_0.42/date.lisp" (written 26 MAY 2005 09:03:15 PM):
; compiling (IN-PACKAGE :NET.TELENT.DATE)
; compiling (DEFVAR *DAY-NAMES* ...)
; compiling (DEFUN DAYNAME ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/net-telent-date_0.42/date.lisp
; in: DEFUN DAYNAME
; (DEFUN NET.TELENT.DATE:DAYNAME
; (STREAM NET.TELENT.DATE::ARG NET.TELENT.DATE::COLON-P
; NET.TELENT.DATE::AT-P
; &OPTIONAL NET.TELENT.DATE::WIDTH (NET.TELENT.DATE::MINCOL 0)
; (NET.TELENT.DATE::COLINC 1) (NET.TELENT.DATE::MINPAD 0)
; (NET.TELENT.DATE::PADCHAR #\ ))
; "Print the day of the week (0=Sunday) corresponding to ARG on STREAM. This is intended for embedding in a FORMAT directive: WIDTH governs the number of characters of text printed, MINCOL, COLINC, MINPAD, PADCHAR work as for ~A"
; (LET ((NET.TELENT.DATE::DAYSTRING (ELT NET.TELENT.DATE::*DAY-NAMES* #)))
; (IF (NOT NET.TELENT.DATE::DAYSTRING)
; (RETURN-FROM NET.TELENT.DATE:DAYNAME NIL))
; (LET ((TRUNCATE #))
; (FORMAT STREAM
; (IF NET.TELENT.DATE::AT-P "~V,V,V,V@A" "~V,V,V,VA")
; NET.TELENT.DATE::MINCOL
; NET.TELENT.DATE::COLINC
; NET.TELENT.DATE::MINPAD
; NET.TELENT.DATE::PADCHAR
; (SUBSEQ NET.TELENT.DATE::DAYSTRING 0 TRUNCATE)))))
; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA NET.TELENT.DATE:DAYNAME
; (STREAM NET.TELENT.DATE::ARG
; NET.TELENT.DATE::COLON-P
; NET.TELENT.DATE::AT-P
; &OPTIONAL
; NET.TELENT.DATE::WIDTH
; (NET.TELENT.DATE::MINCOL 0)
; (NET.TELENT.DATE::COLINC 1)
; (NET.TELENT.DATE::MINPAD 0)
; (NET.TELENT.DATE::PADCHAR #\ ))
; (BLOCK NET.TELENT.DATE:DAYNAME
; (LET ((NET.TELENT.DATE::DAYSTRING #))
; (IF (NOT NET.TELENT.DATE::DAYSTRING)
; (RETURN-FROM NET.TELENT.DATE:DAYNAME NIL))
; (LET (#)
; (FORMAT STREAM
; #
; NET.TELENT.DATE::MINCOL
; NET.TELENT.DATE::COLINC
; NET.TELENT.DATE::MINPAD
; NET.TELENT.DATE::PADCHAR
; #)))))
;
; caught STYLE-WARNING:
; The variable COLON-P is defined but never used.
; compiling (DEFVAR *MONTH-NAMES* ...)
; compiling (DEFUN MONTHNAME ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/net-telent-date_0.42/date.lisp
; in: DEFUN MONTHNAME
; (DEFUN NET.TELENT.DATE:MONTHNAME
; (STREAM NET.TELENT.DATE::ARG NET.TELENT.DATE::COLON-P
; NET.TELENT.DATE::AT-P
; &OPTIONAL NET.TELENT.DATE::WIDTH (NET.TELENT.DATE::MINCOL 0)
; (NET.TELENT.DATE::COLINC 1) (NET.TELENT.DATE::MINPAD 0)
; (NET.TELENT.DATE::PADCHAR #\ ))
; "Print the name of the month (1=January) corresponding to ARG on STREAM. This is intended for embedding in a FORMAT directive: WIDTH governs the number of characters of text printed, MINCOL, COLINC, MINPAD, PADCHAR work as for ~A"
; (LET ((NET.TELENT.DATE::MONTHSTRING
; (ELT NET.TELENT.DATE::*MONTH-NAMES* NET.TELENT.DATE::ARG)))
; (IF (NOT NET.TELENT.DATE::MONTHSTRING)
; (RETURN-FROM NET.TELENT.DATE:MONTHNAME NIL))
; (LET ((TRUNCATE #))
; (FORMAT STREAM
; (IF NET.TELENT.DATE::AT-P "~V,V,V,V@A" "~V,V,V,VA")
; NET.TELENT.DATE::MINCOL
; NET.TELENT.DATE::COLINC
; NET.TELENT.DATE::MINPAD
; NET.TELENT.DATE::PADCHAR
; (SUBSEQ NET.TELENT.DATE::MONTHSTRING 0 TRUNCATE)))))
; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA NET.TELENT.DATE:MONTHNAME
; (STREAM NET.TELENT.DATE::ARG
; NET.TELENT.DATE::COLON-P
; NET.TELENT.DATE::AT-P
; &OPTIONAL
; NET.TELENT.DATE::WIDTH
; (NET.TELENT.DATE::MINCOL 0)
; (NET.TELENT.DATE::COLINC 1)
; (NET.TELENT.DATE::MINPAD 0)
; (NET.TELENT.DATE::PADCHAR #\ ))
; (BLOCK NET.TELENT.DATE:MONTHNAME
; (LET ((NET.TELENT.DATE::MONTHSTRING #))
; (IF (NOT NET.TELENT.DATE::MONTHSTRING)
; (RETURN-FROM NET.TELENT.DATE:MONTHNAME NIL))
; (LET (#)
; (FORMAT STREAM
; #
; NET.TELENT.DATE::MINCOL
; NET.TELENT.DATE::COLINC
; NET.TELENT.DATE::MINPAD
; NET.TELENT.DATE::PADCHAR
; #)))))
;
; caught STYLE-WARNING:
; The variable COLON-P is defined but never used.
; compiling (DEFMACRO WITH-DATE ...)
; compiling (DEFMACRO WITH-DECODING ...)
; compiling (DEFUN DECODE-UNIVERSAL-TIME/PLIST ...)
; compiling (DEFUN UNIVERSAL-TIME-TO-HTTP-DATE ...)
; compiling (DEFUN UNIVERSAL-TIME-TO-RFC2822-DATE ...)
; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/net-telent-date_0.42/date.lisp
; in: DEFUN UNIVERSAL-TIME-TO-RFC2822-DATE
; (* 60 NET.TELENT.DATE::Z-M)
; ==>
; (* SB-C::Y 60)
;
; note: unable to
; convert x*2^k to shift
; due to type uncertainty:
; The first argument is a (RATIONAL -25 25), not a INTEGER.
;
; note: unable to
; recode as shifts and adds
; due to type uncertainty:
; The first argument is a (RATIONAL -25 25), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (RATIONAL -1500 1500)
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32) &REST T).
; (FLOOR (* 60 NET.TELENT.DATE::Z-M))
; ==>
; (FLOOR (* 60 NET.TELENT.DATE::Z-M) 1)
;
; note: unable to
; convert division by 2^k to shift
; due to type uncertainty:
; The first argument is a (RATIONAL -1500 1500), not a INTEGER.
; (1- NET.TELENT.DATE:ZONE)
; ==>
; (- NET.TELENT.DATE:ZONE 1)
;
; note: forced to do GENERIC-- (cost 10)
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (RATIONAL -24 24), not a FIXNUM.
; The result is a (VALUES (RATIONAL -25 23)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (RATIONAL -24 24), not a FIXNUM.
; The result is a (VALUES (RATIONAL -25 23)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; (ABS NET.TELENT.DATE::DAYLIGHT-ZONE)
; --> IF
; ==>
; (< SB-C::X 0)
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a (RATIONAL -25 24), not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a (RATIONAL -25 24), not a FIXNUM.
; etc.
; --> IF -
; ==>
; (SB-KERNEL:%NEGATE SB-C::X)
;
; note: forced to do static-fun %Negate (cost 52)
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (RATIONAL -25 24), not a FIXNUM.
; The result is a (VALUES (RATIONAL 0 25)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (signed-byte 32) arithmetic (cost 2) because:
; The first argument is a (RATIONAL -25 24), not a (SIGNED-BYTE 32).
; The result is a (VALUES (RATIONAL 0 25)
; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST
; T).
; (TRUNCATE (ABS NET.TELENT.DATE::DAYLIGHT-ZONE))
; --> TRUNCATE LET VALUES
; ==>
; (- SB-C::X SB-C::RES)
;
; note: forced to do GENERIC-- (cost 10)
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (RATIONAL 0 25), not a FIXNUM.
; The result is a (VALUES (RATIONAL -25 25)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do safe inline fixnum arithmetic (cost 4) because:
; The first argument is a (RATIONAL 0 25), not a FIXNUM.
; The result is a (VALUES (RATIONAL -25 25)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; (MINUSP NET.TELENT.DATE::DAYLIGHT-ZONE)
; ==>
; (< NET.TELENT.DATE::DAYLIGHT-ZONE 0)
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a (RATIONAL -25 24), not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a (RATIONAL -25 24), not a FIXNUM.
; etc.
; (* 60 NET.TELENT.DATE::Z-M)
; ==>
; (* SB-C::Y 60)
;
; note: forced to do GENERIC-* (cost 50)
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (RATIONAL -25 25), not a FIXNUM.
; The result is a (VALUES (RATIONAL -1500 1500)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (RATIONAL -25 25), not a FIXNUM.
; The result is a (VALUES (RATIONAL -1500 1500)
; &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; compiling (SETF (SYMBOL-FUNCTION #) ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/net-telent-date_0.42/date.fasl written
; compilation finished in 0:00:00
WARNING:
COMPILE-FILE warned while performing #<COMPILE-OP NIL {108ACA41}> on
#<CL-SOURCE-FILE "date" {108A83B1}>.
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/net-telent-date_0.42/parse-time.lisp" (written 26 MAY 2005 09:02:17 PM):
; compiling (IN-PACKAGE :NET.TELENT.DATE)
; compiling (DEFVAR WHITESPACE-CHARS ...)
; compiling (DEFVAR TIME-DIVIDERS ...)
; compiling (DEFVAR DATE-DIVIDERS ...)
; compiling (DEFVAR *ERROR-ON-MISMATCH* ...)
; compiling (DEFMACRO HASHLIST ...)
; compiling (DEFPARAMETER WEEKDAY-TABLE-SIZE ...)
; compiling (DEFPARAMETER MONTH-TABLE-SIZE ...)
; compiling (DEFPARAMETER ZONE-TABLE-SIZE ...)
; compiling (DEFPARAMETER SPECIAL-TABLE-SIZE ...)
; compiling (DEFVAR *WEEKDAY-STRINGS* ...)
; compiling (DEFVAR *MONTH-STRINGS* ...)
; compiling (DEFVAR *ZONE-STRINGS* ...)
; compiling (DEFVAR *SPECIAL-STRINGS* ...)
; compiling (HASHLIST (QUOTE #) ...)
; compiling (HASHLIST (QUOTE #) ...)
; compiling (HASHLIST (QUOTE #) ...)
; compiling (HASHLIST (QUOTE #) ...)
; compiling (DEFPARAMETER *DEFAULT-DATE-TIME-PATTERNS* ...)
; compiling (DEFPARAMETER *HTTP-DATE-TIME-PATTERNS* ...)
; compiling (DEFSTRUCT DECODED-TIME ...)
; compiling (DEFUN MAKE-DEFAULT-TIME ...)
; compiling (DEFUN CONVERT-TO-UNITIME ...)
; compiling (DEFUN SET-CURRENT-VALUE ...)
; compiling (DEFUN YESTERDAY ...)
; compiling (DEFUN TODAY ...)
; compiling (DEFUN TOMORROW ...)
; compiling (DEFUN NOW ...)
; compiling (DEFUN AM-PM ...)
; compiling (DEFUN NOON-MIDN ...)
; compiling (DEFUN WEEKDAY ...)
; compiling (DEFUN MONTH ...)
; compiling (DEFUN ZONE ...)
; compiling (DEFUN IZONE ...)
; compiling (DEFUN SPECIAL-STRING-P ...)
; compiling (DEFUN SECONDP ...)
; compiling (DEFUN MINUTE ...)
; compiling (DEFUN HOUR ...)
; compiling (DEFUN DAY ...)
; compiling (DEFUN YEAR ...)
; compiling (DEFUN TIME-DIVIDER ...)
; compiling (DEFUN DATE-DIVIDER ...)
; compiling (DEFUN MATCH-SUBSTRING ...)
; compiling (DEFUN DECOMPOSE-STRING ...)
; compiling (DEFUN MATCH-PATTERN-ELEMENT ...)
; compiling (DEFUN MATCH-PATTERN ...)
; compiling (DEFUN DEAL-WITH-NOON-MIDN ...)
; compiling (DEFUN DEAL-WITH-AM-PM ...)
; compiling (DEFUN DEAL-WITH-IZONE ...)
; compiling (DEFUN SET-TIME-VALUES ...)
; compiling (DEFUN PARSE-TIME ...)
; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/net-telent-date_0.42/parse-time.fasl written
; compilation finished in 0:00:01
;
; compilation unit finished
; caught 2 STYLE-WARNING conditions
; printed 9 notes
