April 2015 - antik-devel - mailman3.common-lisp.net

[Antik-devel] Foreign array print length
by Eric Eaton 27 Apr '15

27 Apr '15

Foreign arrays don't seem to obey *print-length* when printing in the REPL. This is a problem when dealing with grids with on the order of one million elements ... Emacs becomes very slow and it takes a few seconds to display the debugger if it includes the grid anywhere.

2 2

Generic arithmetic on vectors
by Harvey Stein 25 Apr '15

25 Apr '15

In SBCL, I'm finding some generic arithmetic is returning an error. The trace is below. Basically, when I try to (antik:* x y), and x and y are sequences, it fails if x is of type (simple-array fixnum) and y is of type (simple-array double-float). The problem appears to be in generic.lisp, where *i is defined to fall through to (map (type-of x) #'*i x y), thus assuming that the type produced by the product is the same as the type of the first argument. In general, that won't be the case because of the numerical tower, floating point contagion, etc. Even operating on two fixnums can create a bignum, so operands of type (simple-array fixnum) can need to create an array of type (simple-array integer). Here's the trace: ~$ sbcl This is SBCL 1.1.14.debian, an implementation of ANSI Common Lisp. More information about SBCL is available at <http://www.sbcl.org/>. SBCL is free software, provided as is, with absolutely no warranty. It is mostly in the public domain; some portions are provided under BSD-style licenses. See the CREDITS and COPYING files in the distribution for more information. * (defvar x1 (make-array 3 :element-type 'double-float :initial-contents '(1d0 2d0 3d0))) X1 * (defvar i1 (make-array 3 :element-type 'fixum :initial-contents '(1 2 3))) I1 * x1 #(1.0d0 2.0d0 3.0d0) * i1 #(1 2 3) * (type-of x1) (SIMPLE-ARRAY DOUBLE-FLOAT (3)) * (type-of i1) (SIMPLE-VECTOR 3) * (ql:quickload "antik") To load "antik": Load 1 ASDF system: antik ; Loading "antik" ......... ("antik") * (antik:* i1 x1) #(1.0 4.0 9.0) * (antik:* x1 i1) #(1.0 4.0 9.0) * (antik:* x1 (coerce i1 '(vector fixnum))) #(1.0 4.0 9.0) * (antik:* (coerce i1 '(vector fixnum)) x1 ) debugger invoked on a TYPE-ERROR in thread #<THREAD "main thread" RUNNING {1002A8AF83}>: The value 1.0d0 is not of type FIXNUM. Type HELP for debugger help, or (SB-EXT:EXIT) to exit from SBCL. restarts (invokable by number or by possibly-abbreviated name): 0: [ABORT] Exit debugger, returning to top level. (SB-IMPL::OPTIMIZED-DATA-VECTOR-SET #<unavailable argument> #<unavailable argument> #<unavailable argument>) 0] backtrace Backtrace for: #<SB-THREAD:THREAD "main thread" RUNNING {1002A8AF83}> 0: (SB-IMPL::OPTIMIZED-DATA-VECTOR-SET #<unavailable argument> #<unavailable argument> #<unavailable argument>) 1: ((FLET SB-IMPL::F :IN SB-IMPL::%MAP-TO-VECTOR) 1 1.0d0) 2: (SB-IMPL::%MAP-FOR-EFFECT #<CLOSURE (FLET SB-IMPL::F :IN SB-IMPL::%MAP-TO-VECTOR) {7FFFF6BBF73B}> (#(1 2 3) #(1.0d0 2.0d0 3.0d0))) 3: (SB-IMPL::%MAP-TO-VECTOR (SIMPLE-ARRAY FIXNUM (3)) #<STANDARD-GENERIC-FUNCTION ANTIK::*I (10)> (#(1 2 3) #(1.0d0 2.0d0 3.0d0))) 4: (REDUCE #<STANDARD-GENERIC-FUNCTION ANTIK::*I (10)> (#(1 2 3) #(1.0d0 2.0d0 3.0d0))) 5: (SB-INT:SIMPLE-EVAL-IN-LEXENV (ANTIK:* (COERCE I1 (QUOTE (VECTOR FIXNUM))) X1) #<NULL-LEXENV>) 6: (EVAL (ANTIK:* (COERCE I1 (QUOTE (VECTOR FIXNUM))) X1)) 7: (INTERACTIVE-EVAL (ANTIK:* (COERCE I1 (QUOTE (VECTOR FIXNUM))) X1) :EVAL NIL) 8: (SB-IMPL::REPL-FUN NIL) 9: ((LAMBDA NIL :IN SB-IMPL::TOPLEVEL-REPL)) 10: (SB-IMPL::%WITH-REBOUND-IO-SYNTAX #<CLOSURE (LAMBDA NIL :IN SB-IMPL::TOPLEVEL-REPL) {1003C615BB}>) 11: (SB-IMPL::TOPLEVEL-REPL NIL) 12: (SB-IMPL::TOPLEVEL-INIT) 13: ((FLET #:WITHOUT-INTERRUPTS-BODY-54 :IN SAVE-LISP-AND-DIE)) 14: ((LABELS SB-IMPL::RESTART-LISP :IN SAVE-LISP-AND-DIE)) 0] -- Harvey J. Stein hjstein(a)gmail.com http://www.linkedin.com/in/harveyjstein Selected papers and presentations available at: http://ssrn.com/author=732372

2 1

New location for Antik and GSLL git repositories
by Liam Healy 16 Apr '15

16 Apr '15

The git repositories and development pages for Antik and GSLL are now on gitlab.common-lisp.net under the "antik" group: https://gitlab.common-lisp.net/groups/antik If you clone/pull directly from the git repositories, update the URL as the old locations have been deleted. Those who get the projects exclusively from Quicklisp are unaffected by this change. Liam

1 1

Problem with latest Antik in quicklisp, version 2015-04-07
by Harvey Stein 16 Apr '15

16 Apr '15

Antik was loading fine with quicklisp from version 2015-03-02. When I updated to the latest version (2015-04-07), it no longer builds. (ql:quickload "antik") dies with: The dispatch character #\# already exists. This is on Linux Mint 17.1, sbcl 2:1.1.14-2, using slime in emacs. Here's the slime-repl session: ; SLIME 2014-12-23 CL-USER> (ql:update-all-dists) 1 dist to check. ; Fetching #<URL " http://beta.quicklisp.org/dist/quicklisp/2015-04-07/releases.txt"> ; 294.50KB ================================================== 301,572 bytes in 0.09 seconds (3346.64KB/sec) Changes from quicklisp 2015-03-02 to quicklisp 2015-04-07: New projects: birch-20150407-git bytecurry.mocks-20150407-git carrier-20150407-git cl-cookie-20150407-git cl-coveralls-20150407-git cl-groupby-20150407-git cl-openstack-client-20150407-git cl-poker-eval-20150407-git cl-shellwords-20150407-git cl-singleton-mixin-20150407-git dexador-20150407-git duologue-20150407-git dyna-20150407-git find-port-20150407-git fmt-20150407-git folio2-20150407-git immutable-struct-20150407-git jonathan-20150407-git json-responses-20150407-hg kebab-20150407-git lack-20150407-git metap-20150407-git nsort-20150407-git plump-bundle-20150407-git proc-parse-20150407-git quadtree-20150407-git quasiquote-2.0-20150407-git scriba-20150407-git should-test-20150407-git string-escape-20150407-http thorn-20150407-git trivia-20150407-git trivia.balland2006-20150407-git type-i-20150407-git type-r-20150407-git unix-opts-20150407-git Updated projects: 3bmd-20140826-git -> 3bmd-20150407-git access-20140826-git -> access-20150407-git antik-20140211-git -> antik-20150407-git arrow-macros-20150302-git -> arrow-macros-20150407-git buffalo-20150302-git -> buffalo-20150407-git buildapp-1.5.3 -> buildapp-1.5.4 chanl-20150302-git -> chanl-20150407-git cl-ana-20150302-git -> cl-ana-20150407-git cl-annot-20140113-git -> cl-annot-20150407-git cl-ansi-term-20150302-git -> cl-ansi-term-20150407-git cl-async-20150302-git -> cl-async-20150407-git cl-charms-20150302-git -> cl-charms-20150407-git cl-dbi-20150302-git -> cl-dbi-20150407-git cl-dot-20141106-git -> cl-dot-20150407-git cl-factoring-20130420-git -> cl-factoring-20150407-git cl-gobject-introspection-20150302-git -> cl-gobject-introspection-20150407-git cl-grace-20131003-hg -> cl-grace-20150407-hg cl-indeterminism-20140826-git -> cl-indeterminism-20150407-git cl-launch-4.1 -> cl-launch-4.1.2 cl-libyaml-20150302-git -> cl-libyaml-20150407-git cl-mlep-20150302-git -> cl-mlep-20150407-git cl-mtgnet-20150302-git -> cl-mtgnet-20150407-git cl-mw-20120407-git -> cl-mw-20150407-git cl-netstring-plus-20150302-git -> cl-netstring-plus-20150407-git cl-openid-20130312-darcs -> cl-openid-20150407-git cl-ply-20140713-git -> cl-ply-20150407-git cl-python-20150302-git -> cl-python-20150407-git cl-quickcheck-20141217-git -> cl-quickcheck-20150407-git cl-random-20150113-git -> cl-random-20150407-git cl-readline-20150302-git -> cl-readline-20150407-git cl-reddit-20150302-git -> cl-reddit-20150407-git cl-redis-20150302-git -> cl-redis-20150407-git cl-rlimit-20150302-git -> cl-rlimit-20150407-git cl-sdl2-20150302-git -> cl-sdl2-20150407-git cl-slug-20150302-git -> cl-slug-20150407-git cl-svg-20110320-http -> cl-svg-20150407-git cl-syntax-20140826-git -> cl-syntax-20150407-git cl-tcod-20140713-hg -> cl-tcod-20150407-hg cl-vectors-20130312-git -> cl-vectors-20150407-git cl-voxelize-20140826-git -> cl-voxelize-20150407-git cl-yaml-20150302-git -> cl-yaml-20150407-git clack-20150302-git -> clack-20150407-git classimp-20141217-git -> classimp-20150407-git clavier-20150302-git -> clavier-20150407-git clhs-0.6.2 -> clhs-0.6.3 clim-widgets-20150302-git -> clim-widgets-20150407-git clinch-20140713-git -> clinch-20150407-git clipper-20150302-git -> clipper-20150407-git clos-fixtures-20150302-git -> clos-fixtures-20150407-git closer-mop-20150302-git -> closer-mop-20150407-git clsql-helper-20141217-git -> clsql-helper-20150407-git clx-20150302-git -> clx-20150407-git codata-recommended-values-20140713-git -> codata-recommended-values-20150407-git colleen-20150302-git -> colleen-20150407-git com.informatimago-20150302-git -> com.informatimago-20150407-git common-doc-20150302-git -> common-doc-20150407-git common-doc-plump-20150302-git -> common-doc-plump-20150407-git common-html-20150302-git -> common-html-20150407-git commonqt-20150302-git -> commonqt-20150407-git croatoan-20141217-git -> croatoan-20150407-git defclass-std-20150302-git -> defclass-std-20150407-git djula-20150302-git -> djula-20150407-git drakma-1.3.11 -> drakma-1.3.13 eazy-project-20150302-git -> eazy-project-20150407-git esrap-liquid-20150302-git -> esrap-liquid-20150407-git fare-memoization-20140713-git -> fare-memoization-20150407-git fast-http-20150302-git -> fast-http-20150407-git fast-io-20141217-git -> fast-io-20150407-git femlisp-20140713-git -> femlisp-20150407-git gendl-20150302-git -> gendl-20150407-git graph-20141106-git -> graph-20150407-git gsll-20140211-git -> gsll-20150407-git hdf5-cffi-20150113-git -> hdf5-cffi-20150407-git hl7-client-20150302-git -> hl7-client-20150407-git hl7-parser-20150302-git -> hl7-parser-20150407-git http-body-20150302-git -> http-body-20150407-git hu.dwim.util-20140713-darcs -> hu.dwim.util-20150407-darcs hunchentoot-1.2.29 -> hunchentoot-1.2.31 hyperluminal-mem-20150302-git -> hyperluminal-mem-20150407-git integral-20150302-git -> integral-20150407-git interface-20140914-hg -> interface-20150407-hg introspect-environment-20150113-git -> introspect-environment-20150407-git js-parser-20120909-git -> js-parser-20150407-git jsown-20150113-git -> jsown-20150407-git jwacs-20130312-darcs -> jwacs-20150407-git lass-20141217-git -> lass-20150407-git let-over-lambda-20140914-git -> let-over-lambda-20150407-git lfarm-20141106-git -> lfarm-20150407-git linedit-20120703-git -> linedit-20150407-git lisp-interface-library-20141106-git -> lisp-interface-library-20150407-git lisp-invocation-20140713-git -> lisp-invocation-20150407-git lisp-namespace-20150302-git -> lisp-namespace-20150407-git local-time-20150113-git -> local-time-20150407-git lucerne-20150302-git -> lucerne-20150407-git magicffi-20120703-git -> magicffi-20150407-git mcclim-20141217-git -> mcclim-20150407-git media-types-20150302-git -> media-types-20150407-git mgl-pax-20150302-git -> mgl-pax-20150407-git mk-string-metrics-20150302-git -> mk-string-metrics-20150407-git nibbles-20150302-git -> nibbles-20150407-git ningle-20141217-git -> ningle-20150407-git nst-4.0.2 -> nst-4.0.3 plump-20150302-git -> plump-20150407-git protobuf-20140914-git -> protobuf-20150407-git qtools-20150302-git -> qtools-20150407-git quri-20150302-git -> quri-20150407-git quux-time-20140713-git -> quux-time-20150407-git racer-20150302-git -> racer-20150407-git rutils-20150113-git -> rutils-20150407-git scalpl-20150302-git -> scalpl-20150407-git scriptl-20141106-git -> scriptl-20150407-git sdl2kit-20150302-git -> sdl2kit-20150407-git serapeum-20150302-git -> serapeum-20150407-git shellpool-20150302-git -> shellpool-20150407-git simple-rgb-20121125-svn -> simple-rgb-20150407-git skippy-1.3.10 -> skippy-1.3.12 slime-2.12 -> slime-2.13 st-json-20150302-git -> st-json-20150407-git staple-20150302-git -> staple-20150407-git stumpwm-20150302-git -> stumpwm-20150407-git symbol-munger-20140713-git -> symbol-munger-20150407-git trivial-backtrace-20120909-git -> trivial-backtrace-20150407-git trivial-benchmark-20150302-git -> trivial-benchmark-20150407-git trivial-debug-console-20150302-git -> trivial-debug-console-20150407-git trivial-download-20150302-git -> trivial-download-20150407-git trivial-update-20150302-git -> trivial-update-20150407-git umlisp-20130420-git -> umlisp-20150407-git verbose-20150302-git -> verbose-20150407-git vertex-20150302-git -> vertex-20150407-git vgplot-20140713-git -> vgplot-20150407-git weblocks-stores-20141217-git -> weblocks-stores-20150407-git weft-20150302-git -> weft-20150407-git workout-timer-20150302-git -> workout-timer-20150407-git xmls-1.5 -> xmls-1.7 zaws-20121125-git -> zaws-20150407-git zcdb-1.0.3 -> zcdb-1.0.4 zpb-exif-1.2.2 -> zpb-exif-1.2.3 zpng-1.2.1 -> zpng-1.2.2 Removed projects: autoproject-20111105-svn brlapi-20110619-svn cambl-20120407-git cl-couch-20101207-darcs cl-ledger-20130813-git hctsmsl-20140713-git nekthuth_0.3.4 red-black-20110619-git Press Enter to continue. ; Fetching #<URL " http://beta.quicklisp.org/dist/quicklisp/2015-04-07/releases.txt"> ; 294.50KB ================================================== 301,572 bytes in 0.19 seconds (1583.35KB/sec) ; Fetching #<URL " http://beta.quicklisp.org/dist/quicklisp/2015-04-07/systems.txt"> ; 217.03KB ================================================== 222,236 bytes in 0.36 seconds (599.52KB/sec) ; Fetching #<URL " http://beta.quicklisp.org/archive/antik/2015-04-07/antik-20150407-git.tgz"> ; 1352.93KB ================================================== 1,385,398 bytes in 1.49 seconds (905.57KB/sec) ; Fetching #<URL " http://beta.quicklisp.org/archive/drakma/2015-04-07/drakma-1.3.13.tgz"> ; 70.44KB ================================================== 72,132 bytes in 0.03 seconds (2608.94KB/sec) ; Fetching #<URL " http://beta.quicklisp.org/archive/slime/2015-04-07/slime-2.13.tgz"> ; 1043.75KB ================================================== 1,068,800 bytes in 0.30 seconds (3514.31KB/sec) NIL CL-USER> (ql:update-client) WARNING: Missing client-info.sexp, using mock info The most up-to-date client, version 2015-01-28, is already installed. T CL-USER> (ql:quickload "antik") To load "antik": Load 1 ASDF system: antik ; Loading "antik" To load "gsll": Load 8 ASDF systems: alexandria asdf-system-connections cffi cffi-grovel cffi-libffi foreign-array trivial-features trivial-garbage Install 3 Quicklisp releases: gsll metabang-bind osicat ; Fetching #<URL " http://beta.quicklisp.org/archive/osicat/2015-03-02/osicat-20150302-git.tgz "> ; 52.53KB ================================================== 53,795 bytes in 0.02 seconds (3090.25KB/sec) ; Fetching #<URL " http://beta.quicklisp.org/archive/metabang-bind/2014-11-06/metabang-bind-20… "> ; 22.34KB ================================================== 22,878 bytes in 0.03 seconds (720.70KB/sec) ; Fetching #<URL " http://beta.quicklisp.org/archive/gsll/2015-04-07/gsll-20150407-git.tgz"> ; 307.98KB ================================================== 315,372 bytes in 0.14 seconds (2248.03KB/sec) ; Loading "gsll" ; cc -m64 -I/home/hjstein/quicklisp/dists/quicklisp/software/cffi_0.14.0/ -o /home/hjstein/.cache/common-lisp/sbcl-1.1.14.debian-linux-x64/home/hjstein/quicklisp/dists/quicklisp/software/cffi_0.14.0/libffi/libffi-unix /home/hjstein/.cache/common-lisp/sbcl-1.1.14.debian-linux-x64/home/hjstein/quicklisp/dists/quicklisp/software/cffi_0.14.0/libffi/libffi-unix.c ; /home/hjstein/.cache/common-lisp/sbcl-1.1.14.debian-linux-x64/home/hjstein/quicklisp/dists/quicklisp/software/cffi_0.14.0/libffi/libffi-unix /home/hjstein/.cache/common-lisp/sbcl-1.1.14.debian-linux-x64/home/hjstein/quicklisp/dists/quicklisp/software/cffi_0.14.0/libffi/libffi-unix.grovel-tmp.lisp ....To load "named-readtables": Install 1 Quicklisp release: named-readtables ; Fetching #<URL " http://beta.quicklisp.org/archive/named-readtables/2015-03-02/named-readtab… "> ; 31.96KB ================================================== 32,732 bytes in 0.02 seconds (1452.95KB/sec) ; Loading "named-readtables" [package editor-hints.named-readtables]........... [package editor-hints.named-readtables]...... ; Loading "gsll" To load "lisp-unit": Install 1 Quicklisp release: lisp-unit ; Fetching #<URL " http://beta.quicklisp.org/archive/lisp-unit/2014-01-13/lisp-unit-20140113-g… "> ; 17.23KB ================================================== 17,646 bytes in 0.03 seconds (594.22KB/sec) ; Loading "lisp-unit" [package lisp-unit]............. ; Loading "gsll" [package iterate]................................. [package metabang.bind]........................... [package metabang.bind.developer]................. [package cl-ppcre]................................ .................................................. [package split-sequence].......................... [package antik]................................... [package grid]......... Here's the backtrace with error message and the top frames through to swank stuff expanded: The dispatch character #\# already exists. [Condition of type SIMPLE-ERROR] Restarts: 0: [TRY-RECOMPILING] Recompile readtable and try loading it again 1: [RETRY] Retry loading FASL for #<CL-SOURCE-FILE "antik-base" "input-output" "readtable">. 2: [ACCEPT] Continue, treating loading FASL for #<CL-SOURCE-FILE "antik-base" "input-output" "readtable"> as having been successful. 3: [ABORT] Give up on "gsll" 4: [ABORT] Give up on "antik" 5: [RETRY] Retry SLIME REPL evaluation request. --more-- Backtrace: 0: (MAKE-DISPATCH-MACRO-CHARACTER #\# NIL #<NAMED-READTABLE :ANTIK {1009468293}>) Locals: CHAR = #\# SB-IMPL::NON-TERMINATING-P = NIL SB-IMPL::RT = #<NAMED-READTABLE :ANTIK {1009468293}> 1: ((SB-C::TOP-LEVEL-FORM (LET ((READTABLE (EDITOR-HINTS.NAMED-READTABLES:FIND-READTABLE #1=???))) (COND ((NOT READTABLE) #2=(SETQ READTABLE #1#)) (T #2# (EDITOR-HINTS.NAMED-READTABLES::SIMPLE-STYLE-WARN.. [No Locals] 2: (SB-FASL::LOAD-FASL-GROUP #<SB-SYS:FD-STREAM for "file /home/hjstein/.cache/common-lisp/sbcl-1.1.14.debian-linux-x64/home/hjstein/quicklisp/dists/quicklisp/software/antik-20150407-git/input-output/rea.. Locals: SB-DEBUG::ARG-0 = #<SB-SYS:FD-STREAM for "file /home/hjstein/.cache/common-lisp/sbcl-1.1.14.debian-linux-x64/home/hjstein/quicklisp/dists/quicklisp/software/antik-20150407-git/input-output/readtable.fasl" {100945F563}> Catch-tags: SB-FASL::FASL-GROUP-END 3: (SB-FASL::LOAD-AS-FASL #<SB-SYS:FD-STREAM for "file /home/hjstein/.cache/common-lisp/sbcl-1.1.14.debian-linux-x64/home/hjstein/quicklisp/dists/quicklisp/software/antik-20150407-git/input-output/readta.. Locals: SB-DEBUG::ARG-0 = #<SB-SYS:FD-STREAM for "file /home/hjstein/.cache/common-lisp/sbcl-1.1.14.debian-linux-x64/home/hjstein/quicklisp/dists/quicklisp/software/antik-20150407-git/input-output/readtable.fasl" {100945F563}> SB-DEBUG::ARG-1 = NIL 4: ((FLET SB-FASL::LOAD-STREAM :IN LOAD) #<SB-SYS:FD-STREAM for "file /home/hjstein/.cache/common-lisp/sbcl-1.1.14.debian-linux-x64/home/hjstein/quicklisp/dists/quicklisp/software/antik-20150407-git/inpu.. Locals: SB-DEBUG::ARG-0 = #<SB-SYS:FD-STREAM for "file /home/hjstein/.cache/common-lisp/sbcl-1.1.14.debian-linux-x64/home/hjstein/quicklisp/dists/quicklisp/software/antik-20150407-git/input-output/readtable.fasl" {100945F563}> SB-DEBUG::ARG-1 = T 5: (LOAD #P"/home/hjstein/.cache/common-lisp/sbcl-1.1.14.debian-linux-x64/home/hjstein/quicklisp/dists/quicklisp/software/antik-20150407-git/input-output/readtable.fasl" :VERBOSE NIL :PRINT NIL :IF-DOES-.. Locals: #:EXTERNAL-FORMAT-DEFAULTING-TEMP = :DEFAULT #:IF-DOES-NOT-EXIST-DEFAULTING-TEMP = T #:N-SUPPLIED-80 = NIL #:N-SUPPLIED-81 = NIL SB-FASL::PATHSPEC = #P"/home/hjstein/.cache/common-lisp/sbcl-1.1.14.debian-linux-x64/home/hjstein/quicklisp/dists/quicklisp/software/antik-20150407-git/input-output/readtable.fasl" #:PRINT-DEFAULTING-TEMP = NIL #:VERBOSE-DEFAULTING-TEMP = NIL 6: (UIOP/UTILITY:CALL-WITH-MUFFLED-CONDITIONS #<CLOSURE (LAMBDA NIL :IN ASDF/LISP-ACTION:PERFORM-LISP-LOAD-FASL) {100945BFCB}> ("Overwriting already existing readtable ~S." #(#:FINALIZERS-OFF-WARNING :AS.. Locals: SB-DEBUG::ARG-0 = #<CLOSURE (LAMBDA () :IN ASDF/LISP-ACTION:PERFORM-LISP-LOAD-FASL) {100945BFCB}> SB-DEBUG::ARG-1 = ("Overwriting already existing readtable ~S." #(#:FINALIZERS-OFF-WARNING :ASDF-FINALIZERS)) 7: ((SB-PCL::EMF ASDF/ACTION:PERFORM) #<unavailable argument> #<unavailable argument> #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "antik-base" "input-output" "readtable">) Locals: SB-DEBUG::ARG-2 = #<ASDF/LISP-ACTION:LOAD-OP > SB-DEBUG::ARG-3 = #<ASDF/LISP-ACTION:CL-SOURCE-FILE "antik-base" "input-output" "readtable"> 8: ((:METHOD ASDF/ACTION:PERFORM-WITH-RESTARTS (ASDF/LISP-ACTION:LOAD-OP ASDF/LISP-ACTION:CL-SOURCE-FILE)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "antik-base" "input-output" "read.. Locals: SB-DEBUG::ARG-1 = #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<FUNCTION (SB-PCL::FAST-METHOD ASDF/ACTION:PERFORM-WITH-RESTARTS #)> :PV NIL :NEXT-METHOD-CALL NIL :ARG-INFO (2)) SB-DEBUG::ARG-2 = #<ASDF/LISP-ACTION:LOAD-OP > SB-DEBUG::ARG-3 = #<ASDF/LISP-ACTION:CL-SOURCE-FILE "antik-base" "input-output" "readtable"> 9: ((:METHOD ASDF/ACTION:PERFORM-WITH-RESTARTS :AROUND (T T)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "antik-base" "input-output" "readtable">) [fast-method] Locals: SB-DEBUG::ARG-1 = #S(SB-PCL::FAST-METHOD-CALL ..) SB-DEBUG::ARG-2 = #<ASDF/LISP-ACTION:LOAD-OP > SB-DEBUG::ARG-3 = #<ASDF/LISP-ACTION:CL-SOURCE-FILE "antik-base" "input-output" "readtable"> 10: ((:METHOD ASDF/PLAN:PERFORM-PLAN (LIST)) ((#1=#<ASDF/LISP-ACTION:PREPARE-OP > . #2=#<ASDF/SYSTEM:SYSTEM #3="iterate">) (#1# . #4=#<ASDF/LISP-ACTION:CL-SOURCE-FILE #3# "package">) (#5=#<ASDF/LISP-ACTIO.. Locals: #:FORCE-DEFAULTING-TEMP = NIL ASDF/PLAN::STEPS = ((#<ASDF/LISP-ACTION:PREPARE-OP > . #<ASDF/SYSTEM:SYSTEM "iterate">) (#<ASDF/LISP-ACTION:PREPARE-OP > . #<ASDF/LISP-ACTION:CL-SOURCE-FILE "iterate" "package">) ..) 11: ((FLET SB-C::WITH-IT :IN SB-C::%WITH-COMPILATION-UNIT)) [No Locals] 12: ((:METHOD ASDF/PLAN:PERFORM-PLAN :AROUND (T)) ((#1=#<ASDF/LISP-ACTION:PREPARE-OP > . #2=#<ASDF/SYSTEM:SYSTEM #3="iterate">) (#1# . #4=#<ASDF/LISP-ACTION:CL-SOURCE-FILE #3# "package">) (#5=#<ASDF/LISP-.. Locals: SB-PCL::.NEXT-METHOD-CALL. = #S(SB-PCL::FAST-METHOD-CALL ..) SB-PCL::.REST-ARG. = (:VERBOSE NIL) ASDF/PLAN::PLAN = ((#<ASDF/LISP-ACTION:PREPARE-OP > . #<ASDF/SYSTEM:SYSTEM "iterate">) (#<ASDF/LISP-ACTION:PREPARE-OP > . #<ASDF/LISP-ACTION:CL-SOURCE-FILE "iterate" "package">) ..) 13: ((FLET SB-C::WITH-IT :IN SB-C::%WITH-COMPILATION-UNIT)) [No Locals] 14: ((:METHOD ASDF/PLAN:PERFORM-PLAN :AROUND (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {1002FCC423}> :VERBOSE NIL) [fast-method] Locals: SB-PCL::.NEXT-METHOD-CALL. = #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<FUNCTION (SB-PCL::FAST-METHOD ASDF/PLAN:PERFORM-PLAN #)> :PV NIL :NEXT-METHOD-CALL NIL :ARG-INFO (1 . T)) SB-PCL::.REST-ARG. = (:VERBOSE NIL) ASDF/PLAN::PLAN = #<ASDF/PLAN:SEQUENTIAL-PLAN {1002FCC423}> 15: ((:METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)) #<ASDF/LISP-ACTION:LOAD-OP :VERBOSE NIL> #<ASDF/SYSTEM:SYSTEM "gsll"> :VERBOSE NIL) [fast-method] Locals: ASDF/COMPONENT:COMPONENT = #<ASDF/SYSTEM:SYSTEM "gsll"> ASDF/OPERATION:OPERATION = #<ASDF/LISP-ACTION:LOAD-OP :VERBOSE NIL> #:PLAN-CLASS-DEFAULTING-TEMP = NIL #:REST-CONTEXT-14451 = 70368647260924 #:REST-COUNT-14452 = 2 SB-DEBUG::MORE = (:VERBOSE NIL) 16: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:LOAD-OP :VERBOSE NIL> #<ASDF/SYSTEM:SYSTEM "gsll"> :VERBOSE NIL) Locals: SB-PCL::.ARG0. = #<ASDF/LISP-ACTION:LOAD-OP :VERBOSE NIL> SB-PCL::.ARG1. = #<ASDF/SYSTEM:SYSTEM "gsll"> SB-PCL::.DFUN-MORE-CONTEXT. = 70368647260964 SB-PCL::.DFUN-MORE-COUNT. = 2 SB-DEBUG::MORE = (:VERBOSE NIL) 17: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE)) [No Locals] 18: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) #<ASDF/LISP-ACTION:LOAD-OP :VERBOSE NIL> #<ASDF/SYSTEM:SYSTEM "gsll"> :VERBOSE NIL) [fast-method] Locals: SB-PCL::.NEXT-METHOD-CALL. = #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<CLOSURE (SB-PCL::EMF ASDF/OPERATE:OPERATE) {10068DF25B}> :PV NIL :NEXT-METHOD-CALL NIL :ARG-INFO (2 . T)) SB-PCL::.REST-ARG. = (:VERBOSE NIL) ASDF/COMPONENT:COMPONENT = #<ASDF/SYSTEM:SYSTEM "gsll"> ASDF/OPERATION:OPERATION = #<ASDF/LISP-ACTION:LOAD-OP :VERBOSE NIL> 19: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> ASDF/LISP-ACTION:LOAD-OP "gsll" :VERBOSE NIL) Locals: SB-PCL::.ARG0. = ASDF/LISP-ACTION:LOAD-OP SB-PCL::.ARG1. = "gsll" SB-PCL::.DFUN-MORE-CONTEXT. = 70368647261120 SB-PCL::.DFUN-MORE-COUNT. = 2 SB-DEBUG::MORE = (:VERBOSE NIL) 20: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE)) [No Locals] 21: (ASDF/CACHE:CALL-WITH-ASDF-CACHE #<CLOSURE (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {1002FBA4CB}> :OVERRIDE NIL) Locals: #:OVERRIDE-DEFAULTING-TEMP = NIL THUNK = #<CLOSURE (LAMBDA () :IN ASDF/OPERATE:OPERATE) {1002FBA4CB}> 22: (ASDF/FIND-SYSTEM::CALL-WITH-SYSTEM-DEFINITIONS #<CLOSURE (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {1002FBA4CB}>) Locals: SB-DEBUG::ARG-0 = #<CLOSURE (LAMBDA () :IN ASDF/OPERATE:OPERATE) {1002FBA4CB}> 23: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "gsll" :VERBOSE NIL) [fast-method] Locals: SB-PCL::.NEXT-METHOD-CALL. = #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<CLOSURE (SB-PCL::EMF ASDF/OPERATE:OPERATE) {100708A29B}> :PV NIL :NEXT-METHOD-CALL NIL :ARG-INFO (2 . T)) SB-PCL::.REST-ARG. = (:VERBOSE NIL) ASDF/COMPONENT:COMPONENT = "gsll" ASDF/OPERATION:OPERATION = ASDF/LISP-ACTION:LOAD-OP 24: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "gsll" :VERBOSE NIL) [fast-method] Locals: SB-PCL::.NEXT-METHOD-CALL. = #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<CLOSURE (SB-PCL::EMF ASDF/OPERATE:OPERATE) {100708A29B}> :PV NIL :NEXT-METHOD-CALL NIL :ARG-INFO (2 . T)) SB-PCL::.REST-ARG. = (:VERBOSE NIL) ASDF/COMPONENT:COMPONENT = "gsll" ASDF/OPERATION:OPERATION = ASDF/LISP-ACTION:LOAD-OP 25: (QUICKLISP-CLIENT::CALL-WITH-MACROEXPAND-PROGRESS #<CLOSURE (LAMBDA NIL :IN QUICKLISP-CLIENT::APPLY-LOAD-STRATEGY) {1002C1280B}>) Locals: SB-DEBUG::ARG-0 = #<CLOSURE (LAMBDA () :IN QUICKLISP-CLIENT::APPLY-LOAD-STRATEGY) {1002C1280B}> 26: (QUICKLISP-CLIENT::AUTOLOAD-SYSTEM-AND-DEPENDENCIES "gsll" :PROMPT NIL) Locals: NAME = "gsll" #:PROMPT-DEFAULTING-TEMP = NIL 27: (QUICKLISP-CLIENT::AUTOLOAD-SYSTEM-AND-DEPENDENCIES "antik" :PROMPT NIL) Locals: NAME = "antik" #:PROMPT-DEFAULTING-TEMP = NIL 28: ((:METHOD QL-IMPL-UTIL::%CALL-WITH-QUIET-COMPILATION (T T)) #<unavailable argument> #<CLOSURE (FLET QUICKLISP-CLIENT::QL :IN QUICKLISP-CLIENT:QUICKLOAD) {100657392B}>) [fast-method] Locals: SB-DEBUG::ARG-3 = #<CLOSURE (FLET QUICKLISP-CLIENT::QL :IN QUICKLISP-CLIENT:QUICKLOAD) {100657392B}> 29: ((:METHOD QL-IMPL-UTIL::%CALL-WITH-QUIET-COMPILATION :AROUND (QL-IMPL:SBCL T)) #<QL-IMPL:SBCL {1003D71D03}> #<CLOSURE (FLET QUICKLISP-CLIENT::QL :IN QUICKLISP-CLIENT:QUICKLOAD) {100657392B}>) [fast-me.. Locals: SB-DEBUG::ARG-1 = #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<FUNCTION (SB-PCL::FAST-METHOD QL-IMPL-UTIL::%CALL-WITH-QUIET-COMPILATION #)> :PV NIL :NEXT-METHOD-CALL NIL :ARG-INFO (2)) SB-DEBUG::ARG-2 = #<QL-IMPL:SBCL {1003D71D03}> SB-DEBUG::ARG-3 = #<CLOSURE (FLET QUICKLISP-CLIENT::QL :IN QUICKLISP-CLIENT:QUICKLOAD) {100657392B}> 30: ((:METHOD QUICKLISP-CLIENT:QUICKLOAD (T)) #<unavailable argument> :PROMPT NIL :SILENT NIL :VERBOSE NIL) [fast-method] Locals: #:N-SUPPLIED-13 = NIL #:N-SUPPLIED-14 = NIL #:PROMPT-DEFAULTING-TEMP = NIL #:SILENT-DEFAULTING-TEMP = NIL #:VERBOSE-DEFAULTING-TEMP = NIL 31: (QL-DIST::CALL-WITH-CONSISTENT-DISTS #<CLOSURE (LAMBDA NIL :IN QUICKLISP-CLIENT:QUICKLOAD) {10065633AB}>) Locals: SB-DEBUG::ARG-0 = #<CLOSURE (LAMBDA () :IN QUICKLISP-CLIENT:QUICKLOAD) {10065633AB}> 32: (SB-INT:SIMPLE-EVAL-IN-LEXENV (QUICKLISP-CLIENT:QUICKLOAD "antik") #<NULL-LEXENV>) Locals: SB-DEBUG::ARG-0 = (QUICKLISP-CLIENT:QUICKLOAD "antik") SB-DEBUG::ARG-1 = #<NULL-LEXENV> 33: (EVAL (QUICKLISP-CLIENT:QUICKLOAD "antik")) Locals: SB-DEBUG::ARG-0 = (QUICKLISP-CLIENT:QUICKLOAD "antik") 34: (SWANK::EVAL-REGION "(ql:quickload \"antik\") ..) 35: ((LAMBDA NIL :IN SWANK-REPL::REPL-EVAL)) 36: (SWANK-REPL::TRACK-PACKAGE #<CLOSURE (LAMBDA NIL :IN SWANK-REPL::REPL-EVAL) {100656284B}>) 37: (SWANK::CALL-WITH-RETRY-RESTART "Retry SLIME REPL evaluation request." #<CLOSURE (LAMBDA NIL :IN SWANK-REPL::REPL-EVAL) {100656278B}>) 38: (SWANK::CALL-WITH-BUFFER-SYNTAX NIL #<CLOSURE (LAMBDA NIL :IN SWANK-REPL::REPL-EVAL) {100656276B}>) 39: (SWANK-REPL::REPL-EVAL "(ql:quickload \"antik\") ..) 40: (SB-INT:SIMPLE-EVAL-IN-LEXENV (SWANK-REPL:LISTENER-EVAL "(ql:quickload \"antik\") ..) 41: (EVAL (SWANK-REPL:LISTENER-EVAL "(ql:quickload \"antik\") ..) 42: (SWANK:EVAL-FOR-EMACS (SWANK-REPL:LISTENER-EVAL "(ql:quickload \"antik\") ..) 43: (SWANK::PROCESS-REQUESTS NIL) 44: ((LAMBDA NIL :IN SWANK::HANDLE-REQUESTS)) 45: ((LAMBDA NIL :IN SWANK::HANDLE-REQUESTS)) 46: (SWANK/SBCL::CALL-WITH-BREAK-HOOK #<FUNCTION SWANK:SWANK-DEBUGGER-HOOK> #<CLOSURE (LAMBDA NIL :IN SWANK::HANDLE-REQUESTS) {1006CA00EB}>) 47: ((FLET SWANK/BACKEND:CALL-WITH-DEBUGGER-HOOK :IN "/home/hjstein/quicklisp/dists/quicklisp/software/slime-2.12/swank/sbcl.lisp") #<FUNCTION SWANK:SWANK-DEBUGGER-HOOK> #<CLOSURE (LAMBDA NIL :IN SWANK::H.. 48: (SWANK::CALL-WITH-BINDINGS ((*STANDARD-OUTPUT* . #1=#<SWANK/GRAY::SLIME-OUTPUT-STREAM {1006C7A343}>) (*STANDARD-INPUT* . #2=#<SWANK/GRAY::SLIME-INPUT-STREAM {1002AB0073}>) (*TRACE-OUTPUT* . #1#) (*ERR.. 49: (SWANK::HANDLE-REQUESTS #<SWANK::MULTITHREADED-CONNECTION {1006453FE3}> NIL) 50: ((FLET #:WITHOUT-INTERRUPTS-BODY-1117 :IN SB-THREAD::INITIAL-THREAD-FUNCTION-TRAMPOLINE)) 51: ((FLET SB-THREAD::WITH-MUTEX-THUNK :IN SB-THREAD::INITIAL-THREAD-FUNCTION-TRAMPOLINE)) 52: ((FLET #:WITHOUT-INTERRUPTS-BODY-537 :IN SB-THREAD::CALL-WITH-MUTEX)) 53: (SB-THREAD::CALL-WITH-MUTEX #<CLOSURE (FLET SB-THREAD::WITH-MUTEX-THUNK :IN SB-THREAD::INITIAL-THREAD-FUNCTION-TRAMPOLINE) {7FFFF4726C2B}> #<SB-THREAD:MUTEX "thread result lock" owner: #<SB-THREAD:THR.. 54: (SB-THREAD::INITIAL-THREAD-FUNCTION-TRAMPOLINE #<SB-THREAD:THREAD "repl-thread" RUNNING {1006C98083}> #S(SB-THREAD:SEMAPHORE :NAME "Thread setup semaphore" :%COUNT 0 :WAITCOUNT 0 :MUTEX #<SB-THREAD:MU.. 55: ("foreign function: call_into_lisp") 56: ("foreign function: new_thread_trampoline") -- Harvey J. Stein hjstein(a)gmail.com http://www.linkedin.com/in/harveyjstein Selected papers and presentations available at: http://ssrn.com/author=732372

2 3