Starting /usr/local/bin/lisp ... ILISP V5.12.0 Use M-x ilisp-bug for problems and suggestions. International Allegro CL Enterprise Edition 6.2 [64-bit AIX] (Jun 6, 2003 11:38) Copyright (C) 1985-2002, Franz Inc., Berkeley, CA, USA. All Rights Reserved. This development copy of Allegro CL is licensed to: [TC9407] Director, Center for Computational Pharmacology ; Loading /usr/AllegroCL/acl62/siteinit.cl ; Fast loading /home/hunter/lisp/utilities/utilities.fasl64 ; Fast loading /hu1/people/hunter/lisp/utilities/files.fasl64 ; Fast loading /hu1/people/hunter/lisp/utilities/http.fasl64 ; Fast loading /usr/AllegroCL/acl62/code/aserve.001 ;;; Installing aserve patch, version 1 ; Fast loading /usr/AllegroCL/acl62/code/acldns.002 ;;; Installing acldns patch, version 2 ; Fast loading /hu1/people/hunter/lisp/utilities/io.fasl64 ; Fast loading /hu1/people/hunter/lisp/utilities/macros.fasl64 ; Fast loading /hu1/people/hunter/lisp/utilities/random.fasl64 ; Fast loading /hu1/people/hunter/lisp/utilities/search.fasl64 ; Fast loading /hu1/people/hunter/lisp/utilities/sequences.fasl64 ; Fast loading /hu1/people/hunter/lisp/utilities/statistics.fasl64 ; Fast loading /hu1/people/hunter/lisp/utilities/strings.fasl64 ; Fast loading /hu1/people/hunter/lisp/utilities/arrays.fasl64 ;; Optimization settings: safety 1, space 1, speed 3, debug 1. ;; For a complete description of all compiler switches given the current ;; optimization settings evaluate (explain-compiler-settings). ;;--- ;; Current reader case mode: :case-sensitive-lower cl-user(1): cl-user(2): cl-user(9): "123" "123" cl-user(10): (read "123") Error: `"123"' is not of the expected type `stream' [condition type: type-error] Restart actions (select using :continue): 0: Return to Top Level (an "abort" restart). 1: Abort entirely from this process. [1] cl-user(11): cl-user(12): (read-from-string "123") 123 3 cl-user(13): (read-from-string "123/12") 41/4 6 cl-user(14): (read-from-string "123d0") 123.0d0 5 cl-user(15): (parse-integer "123") 123 3 cl-user(16): (parse-integer "1a2" :radix 16) 418 3 cl-user(17): (parse-integer "1a2") Error: There's junk in this string: "1a2". [condition type: parse-error] Restart actions (select using :continue): 0: Return to Top Level (an "abort" restart). 1: Abort entirely from this process. [1] cl-user(18): cl-user(19): (parse-integer "1a2" :junk-allowed t) 1 1 cl-user(20): (map 'vector #'char-code "this is a test") #(116 104 105 115 32 105 115 32 97 32 ...) cl-user(21): cl-user(21): #'+ # cl-user(22): (defun + (&rest args) (if (some #'stringp args) (my-string-adder args) (cl:+ args))) Error: Attempt to make a function definition for the name +. This name is in the common-lisp package and redefining it is a violation for portable programs. Replacing the current definition of # may be dangerous. The package common-lisp has package-definition-lock set, which causes the system to signal this violation. [condition type: package-locked-error] Restart actions (select using :continue): 0: Set the function definition of the name + anyway. 1: Return to Top Level (an "abort" restart). 2: Abort entirely from this process. [1c] cl-user(23): (continue 0) + cl-user(24): (+ 1 2) Error: Stack overflow (signal 1000) [condition type: synchronous-operating-system-signal] Restart actions (select using :continue): 0: continue computation 1: Return to Top Level (an "abort" restart). 2: Abort entirely from this process. [1c] cl-user(25): Error: Received signal number 2 (Keyboard interrupt) [condition type: interrupt-signal] Restart actions (select using :continue): 0: continue computation 1: Return to Top Level (an "abort" restart). 2: Abort entirely from this process. [1c] cl-user(26): :reset cl-user(27): (setf (function +) cl:+) Error: `(setf function)' is not fbound [condition type: undefined-function] Restart actions (select using :continue): 0: Return to Top Level (an "abort" restart). 1: Abort entirely from this process. [1] cl-user(28): :pop cl-user(29): (+ 1 2) Error: Stack overflow (signal 1000) [condition type: synchronous-operating-system-signal] Restart actions (select using :continue): 0: continue computation 1: Return to Top Level (an "abort" restart). 2: Abort entirely from this process. [1c] cl-user(30): Error: Received signal number 2 (Keyboard interrupt) [condition type: interrupt-signal] Restart actions (select using :continue): 0: continue computation at break level 1 1: continue computation 2: Return to Top Level (an "abort" restart). 3: Abort entirely from this process. [2c] cl-user(31): (exit) ; Exiting Lisp Starting /usr/local/bin/lisp ... ;;; ILISP V5.12.0 Use M-x ilisp-bug for problems and suggestions. cl-user(28): International Allegro CL Enterprise Edition 6.2 [64-bit AIX] (Jun 6, 2003 11:38) Copyright (C) 1985-2002, Franz Inc., Berkeley, CA, USA. All Rights Reserved. This development copy of Allegro CL is licensed to: [TC9407] Director, Center for Computational Pharmacology ; Loading /usr/AllegroCL/acl62/siteinit.cl ; Fast loading /home/hunter/lisp/utilities/utilities.fasl64 ; Fast loading /hu1/people/hunter/lisp/utilities/files.fasl64 ; Fast loading /hu1/people/hunter/lisp/utilities/http.fasl64 ; Fast loading /usr/AllegroCL/acl62/code/aserve.001 ;;; Installing aserve patch, version 1 ; Fast loading /usr/AllegroCL/acl62/code/acldns.002 ;;; Installing acldns patch, version 2 ; Fast loading /hu1/people/hunter/lisp/utilities/io.fasl64 ; Fast loading /hu1/people/hunter/lisp/utilities/macros.fasl64 ; Fast loading /hu1/people/hunter/lisp/utilities/random.fasl64 ; Fast loading /hu1/people/hunter/lisp/utilities/search.fasl64 ; Fast loading /hu1/people/hunter/lisp/utilities/sequences.fasl64 ; Fast loading /hu1/people/hunter/lisp/utilities/statistics.fasl64 ; Fast loading /hu1/people/hunter/lisp/utilities/strings.fasl64 ; Fast loading /hu1/people/hunter/lisp/utilities/arrays.fasl64 ;; Optimization settings: safety 1, space 1, speed 3, debug 1. ;; For a complete description of all compiler switches given the current optimization ;; settings evaluate (explain-compiler-settings). ;;--- ;; Current reader case mode: :case-sensitive-lower cl-user(1): cl-user(2): cl-user(9): '+ + cl-user(10): user:+ Error: The symbol "+" is not external in the common-lisp-user package. [condition type: reader-error] Restart actions (select using :continue): 0: Abort entirely from this process. [1] cl-user(11): cl-user(12): cl-user(12): (current-package) Error: attempt to call `current-package' which is an undefined function. [condition type: undefined-function] Restart actions (select using :continue): 0: Try calling current-package again. 1: Return a value instead of calling current-package. 2: Try calling a function other than current-package. 3: Setf the symbol-function of current-package and call it again. 4: Return to Top Level (an "abort" restart). 5: Abort entirely from this process. [1] cl-user(13): cl-user(14): cl-user(14): (default-package) Error: attempt to call `default-package' which is an undefined function. [condition type: undefined-function] Restart actions (select using :continue): 0: Try calling default-package again. 1: Try calling defsystem:default-package instead. 2: Return a value instead of calling default-package. 3: Try calling a function other than default-package. 4: Setf the symbol-function of default-package and call it again. 5: Return to Top Level (an "abort" restart). 6: Abort entirely from this process. [1] cl-user(15): cl-user(16): cl-user(16): *package* # cl-user(17): (package-name *package*) "common-lisp-user" cl-user(18): (symbol-package'+) # cl-user(19): (symbol-package '+) # cl-user(20): (in-package "cl") # cl(21): (in-package :cl) # cl(22): (symbol-package :foo) # cl(23): (defpackage 'package2) Error: `'package2' is not of the expected type `character' [condition type: type-error] Restart actions (select using :continue): 0: Return to Top Level (an "abort" restart). 1: Abort entirely from this process. [1] cl(24): cl(25): (defpackage package2) # cl(26): 'foo foo cl(27): (in-package "package2") # package2(28): 'bar bar package2(29): (setq foo 1) 1 package2(30): (in-package "user") # cl-user(31): cl-user(31): cl-user(31): foo Error: Attempt to take the value of the unbound variable `foo'. [condition type: unbound-variable] Restart actions (select using :continue): 0: Try evaluating foo again. 1: Set the symbol-value of foo and use its value. 2: Use a value without setting foo. 3: Return to Top Level (an "abort" restart). 4: Abort entirely from this process. [1] cl-user(32): :pop cl-user(33): (in-package "package2") # package2(34): package2(34): package2(34): (export 'foo) t package2(35): (in-package "user") # cl-user(36): cl-user(36): foo Error: Attempt to take the value of the unbound variable `foo'. [condition type: unbound-variable] Restart actions (select using :continue): 0: Try evaluating foo again. 1: Set the symbol-value of foo and use its value. 2: Use a value without setting foo. 3: Return to Top Level (an "abort" restart). 4: Abort entirely from this process. [1] cl-user(37): :reset cl-user(38): package2:foo 1 cl-user(39): (in-package :package2) # package2(40): (setq bar 2) 2 package2(41): (in-package :user) # cl-user(42): package2:bar Error: The symbol "bar" is not external in the package2 package. [condition type: reader-error] Restart actions (select using :continue): 0: Abort entirely from this process. [1] cl-user(43): :res cl-user(44): package2:baz Error: Symbol "baz" not found in the package2 package. [condition type: reader-error] Restart actions (select using :continue): 0: Abort entirely from this process. [1] cl-user(45): :res cl-user(46): package2::bar 2 cl-user(47): (use-package :package2) Error: Using package `package2' results in name conflicts for these symbols: foo [condition type: package-error] Restart actions (select using :continue): 0: Unintern the conflicting symbols from the `common-lisp-user' package. 1: Return to Top Level (an "abort" restart). 2: Abort entirely from this process. [1c] cl-user(48): (continue 0) t cl-user(49): foo 1 cl-user(50): (symbol-package 'foo) # cl-user(51): (symbol-package '+) # cl-user(52): cl:+ (symbol-package '+) cl-user(53): #'cl:+ # cl-user(54): cl:+ #'+ cl-user(55): (let ((all-user-syms nil)) (do-external-symbols (sym (find-package "package2")) (push sym all-user-syms))) nil cl-user(56): (let ((all-user-syms nil)) (do-external-symbols (sym (find-package "package2") all-user-syms) (push sym all-user-syms))) (foo) cl-user(57): (let ((all-user-syms nil)) (do-external-symbols (sym (find-package "user") all-user-syms) (push sym all-user-syms))) nil cl-user(58): (function cl:+) # cl-user(59): *modules* ("strings" "io" "aserve" "acldns" "efft-latin1-base" "efft-void" "efft-utf8-base" "develenv" "uri" "mcombin" ...) cl-user(60): (require :ftp) ; Fast loading /usr/AllegroCL/acl62/code/ftp.002 ;;; Installing ftp patch, version 2 ; Fast loading /usr/AllegroCL/acl62/code/resource.fasl ;;; Installing resource patch, version 1 t cl-user(61): *modules* ("ftp" "resource" "strings" "io" "aserve" "acldns" "efft-latin1-base" "efft-void" "efft-utf8-base" "develenv" ...) cl-user(62): (setq buffer (make-array 100 :adjustable t :fill-pointer 0 :element-type 'character)) "" cl-user(71): (aref buffer 50) #\%null cl-user(72): buffer "" cl-user(73): (setf (aref buffer 0) #\a) #\a cl-user(74): buffer "" cl-user(75): (setf (fill-pointer buffer) 1) 1 cl-user(76): buffer "a" cl-user(77): (vector-push #\b buffer) 1 cl-user(78): buffer "ab" cl-user(79): (vector-push #\e buffer) 2 cl-user(80): buffer "abe" cl-user(81): (coerce "abc" 'list) (#\a #\b #\c) cl-user(82): (coerce 1/4 'float) 0.25 cl-user(83): (setq i 1/4) 1/4 cl-user(84): (coerce i 'float) 0.25 cl-user(85): i 1/4 cl-user(86): (setq i (coerce i 'float)) 0.25 cl-user(87): io Error: Attempt to take the value of the unbound variable `io'. [condition type: unbound-variable] Restart actions (select using :continue): 0: Try evaluating io again. 1: Use :io instead. 2: Set the symbol-value of io and use its value. 3: Use a value without setting io. 4: Return to Top Level (an "abort" restart). 5: Abort entirely from this process. [1] cl-user(88): cl-user(89): i 0.25 cl-user(90): ;;;Compile /hu1/people/hunter/lisp/egome-unoptimized.lisp ;;; Compiling file /hu1/people/hunter/lisp/egome-unoptimized.lisp ; Fast loading /home/hunter/lisp/external/inflate-stream.fasl64 ; Fast loading from bundle code/iodefs.fasl. ; Fast loading from bundle code/iordefs.fasl. ; Fast loading from bundle code/efmacs.fasl. ; While compiling create-index: Warning: Variable max-reads is never used. ;;; Writing fasl file /hu1/people/hunter/lisp/egome-unoptimized.fasl64 ;;; Fasl write complete #p"/hu1/people/hunter/lisp/egome-unoptimized.fasl64" t nil cl-user(89): ; Fast loading /hu1/people/hunter/lisp/egome-unoptimized.fasl64 t cl-user(90): ;;;Compile /hu1/people/hunter/lisp/egome-unoptimized.lisp ;;; Compiling file /hu1/people/hunter/lisp/egome-unoptimized.lisp ;;; Writing fasl file /hu1/people/hunter/lisp/egome-unoptimized.fasl64 ;;; Fasl write complete #p"/hu1/people/hunter/lisp/egome-unoptimized.fasl64" nil nil cl-user(91): ; Fast loading /hu1/people/hunter/lisp/egome-unoptimized.fasl64 t cl-user(92): (create-index 100) Error: attempt to call `create-index' which is an undefined function. [condition type: undefined-function] Restart actions (select using :continue): 0: Try calling create-index again. 1: Try calling egome:create-index instead. 2: Return a value instead of calling create-index. 3: Try calling a function other than create-index. 4: Setf the symbol-function of create-index and call it again. 5: Return to Top Level (an "abort" restart). 6: Abort entirely from this process. [1] cl-user(93): cl-user(94): cl-user(94): (egome:create-index 100) Error: &key list isn't even. [condition type: program-error] Restart actions (select using :continue): 0: Return to Top Level (an "abort" restart). 1: Abort entirely from this process. [1] cl-user(95): cl-user(96): (egome:create-index :max-reads 100) Checking for update of cached proteins file Uncompressing.