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

Compatibility with ECL
by NOEU 23 Feb '20

23 Feb '20

Hello. I am writing a program while studying Common Lisp. When I tried to use GSLL on ECL and it did not work, I checked the GSLL mailing list and the ECL maintainer and found that Antik needs to be modified. Looking at the Antik repositories, there are fixes for CLISP and ECL in the merge request, when will these be incorporated? I'm concerned if this project is currently managed. I needed to fix the macro-char line in readtable.lisp, so I created my own repository (https://gitlab.com/hu.moonstone/antik) and fixed it there. Best regards, NOEU

1 0

Re: [patch] fix gsl-config-pathname
by Liam Healy 29 Dec '15

29 Dec '15

I think this might be a readtable problem associated with CCL. I hope the Antik commit 03507b1b0667, which is the HEAD of the December quicklisp release, has fixed this. Thanks, Liam On Tue, Aug 4, 2015 at 8:56 AM, Munawar Cheema <munawar.a.cheema(a)gmail.com> wrote: > I tried to check this on my OS X Mavericks system with CCL but I am > getting readtable errors. Just to make sure this is what I did. > > I git cloned both antik and gsll to my local-projects directory from > https://gitlab.common-lisp.net/groups/antik > > If I git log I see the commit of antik is:63fa8e0a0c04090... > and for gsll it is: ad5409ec81f4af... > > When I try either (ql:quickload :antik) or (ql:quickload :gsll) i get > errors like: > > > Reader error on #<BASIC-FILE-CHARACTER-INPUT-STREAM > ("/Users/mcheema/quicklisp/local-projects/antik/tests/physical-quantities-grid.lisp"/4 > UTF-8) #x3020023E839D>, near position 2047, within "m)) > #(1.0d0 5.0d": > Undefined character #\( in a #\# dispatch macro. > > Reader error on #<BASIC-FILE-CHARACTER-INPUT-STREAM > ("/Users/mcheema/quicklisp/local-projects/gsll/polynomial.lisp"/4 > UTF-8) #x3020024DCCBD>, near position 1730, within "t x.\") > > #+fsbv > (defm": > Undefined character #\+ in a #\# dispatch macro. > > > > > I see there was a commit relating to a named-readtable recently and > maybe that is causing the problem or I am just not doing this > correctly. > > -- > Kind Regards > Munawar >

1 0

Antik split systems
by Liam Healy 04 Dec '15

04 Dec '15

I am planning to make a major branch merge for Antik soon which affects Antik and GSLL users. A couple years ago I reorganized Antik to split it up into separate systems so that, for example, if you just want to use GSLL, it will not load some parts of Antik that GSLL doesn't need. GSLL also split into two branches so that it could track that Antik branch. I made all updates in the new branches, so the master branches have not seen any progress in the last couple years. This weekend, prior to the Quicklisp December release, I plan to merge these branches into their respective master branches. I am sending this email because of the user-visible changes. On the current master branch of Antik, some global changes were made, notably to the reader, which meant that loading Antik affected completely different systems, which is undesirable. So, the readtable now must be changed manually if you want to use the Antik reader macros #m (grids), #d (dates and times), #_ (physical dimension quantities). Also, *read-default-float-format* was set to 'double-float and this no longer happens. As a convenience, I have defined (set-reader) (set-reader-in-file) to restore the old behavior. They must be invoked manually however, in each REPL or file (respectively) in which you want the desired reader behavior. In Antik, I've started to rewrite the documentation using Sphinx. However, this effort has just begun (and there are some problems with Sphinx I need to fix), so the texinfo documentation is still there. All the changes related to the new branch are in the Sphinx documentation. Thanks, Liam

1 0

Generic arithmetic and declarations
by Harvey Stein 18 May '15

18 May '15

Consider the following function: (defun afunction (a) (declare (type (simple-array double-float (*)) a)) a) It compiles fine in cl-user, but if I'm in antik-user, I get: ; in: DEFUN AFUNCTION ; (TYPE (SIMPLE-ARRAY DOUBLE-FLOAT (ANTIK:*)) ANTIK:A) ; ; caught ERROR: ; bad dimension in array type: * ; ; compilation unit finished ; caught 1 ERROR condition So, the antik definition of * breaks declarations that use *. Any way to fix this? Thanks, Harvey -- 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

[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

Antik symbols in iterate
by Matt Niemeir 21 Feb '14

21 Feb '14

Hello, there was a discussion in #lisp today about cl-csv, iterate, and antik. I came up with a small case which seems to illustrate an issue: (macroexpand-1 '(iter:iter (iter:for i upfrom 0))) Before loading antik, that form's expansion includes cl:+. After loading antik, it includes antik:+ instead.

2 1

Re: [GSLL-devel] Fixing up make-grid-data for clisp (was making copy-to working in clisp+grid: fix to element-type)
by Liam Healy 26 Dec '13

26 Dec '13

My fix (as opposed to your fix) to the problem you reported in your previous email should not exhibit this problem, see my previous email. A better summary is CLISP is not a preferred platform for anything. There is a Windows port of SBCL, and has been for quite some time. A better cross-check on portability would be CCL. Liam On Fri, Jan 4, 2013 at 11:47 AM, Mirko Vukovic <mirko.vukovic(a)gmail.com>wrote: > This is a follow up on my posted fix to copy-to. For some reason this has > triggered another > error. I do not understand how that other error is triggered. The error > and the fix are discussed > at the bottom of the email > > On Fri, Jan 4, 2013 at 10:39 AM, Mirko Vukovic <mirko.vukovic(a)gmail.com>wrote: > >> The following works in sbcl+grid: >> >> (copy-to (make-array 2 :element-type 'double-float :initial-contents >> '(1.0d0 2.0d0)) 'grid:foreign-array) >> >> But it does not work in clisp+grid. >> >> The root cause lies in the function grid/array.lisp/element-type. It >> uses `(array-element-type grid)'. >> >> But this can present a problem. Quoting hyperspec: >> >> (Because of *array* <http://26_glo_a.htm#array> *upgrading*, this *type >> specifier* <http://26_glo_t.htm#type_specifier> can in some cases denote >> a *supertype* <http://26_glo_s.htm#supertype> of the *expressed array >> element type* <http://26_glo_e.htm#expressed_array_element_type> of the >> *array*.) >> >> In CLISP, array-element-type returns `T' when passed #(1d0 2d0) >> >> It returns T even when passed a simple array: >> >> (array-element-type (make-array 2 :element-type 'double-float >> :initial-contents >> '(1.0d0 2.0d0) >> :adjustable nil >> :fill-pointer nil >> :displaced-to nil) ) >> >> The proposed fix is >> >> (defmethod element-type ((grid array)) >> (type-of (row-major-aref grid 0)) >> #+skip(array-element-type grid)) >> >> Now copy-to works in clisp as well. >> >> Mirko >> >> >> After finishing this, I recompiled afresh, and got another error that I > traced to make-grid-data and make-array > > In clisp, make-array will return an array of NIL's even if the > element-type is specified as double float. In SBCL make-array > will return an array filled with 1d0. > > I had to add some clisp specific code to make-grid-data in order for it to > initialize properly. > > First, a helper function: > (defun default-element (element-type) > "Return a default element depending on element-type > " > (let ((a-list '((double-float . 1d0) > (symbol . T)))) > (let ((match (cdr (assoc element-type a-list)))) > (assert match () > "Default element type undefined for element-type ~a" > element-type) > match))) > > And second, a bit of set-up code in make-grid-data. I broke apart the > (let* statement > to provide an explicit initial element if it has not been specified > already: > > (defmethod make-grid-data > ((type (eql 'array)) dimensions rest-spec > &key (initial-element nil initial-element-p) > (initial-contents nil initial-contents-p)) > (let ((element-type (top-spec-type rest-spec))) > #+clisp > (unless (or initial-element-p > initial-contents-p) > (setf initial-element (default-element element-type) > initial-element-p t)) > (let ((array ... UNCHANGED > > > Summary: To fix to copy-to, I modified (defmethod element-type ((grid > array)) > For some unknown reason, that triggered an error in the array > initialization routine. > To fix that, I had to add code to make-grid-data, so that it fills > double-float arrays with 0d0 > instead of NIL's > > I will continue using this code to see if there are additional problems. > > BTW, I realize that CLISP is not a preferred platform for speedy > computation, but that is what I use > on Windows, until SBCL gets officially ported to it. And in addition, it > is a nice cross-check on portability. > > Mirko > > > > _______________________________________________ > GSLL-devel mailing list > GSLL-devel(a)common-lisp.net > http://lists.common-lisp.net/cgi-bin/mailman/listinfo/gsll-devel > >

2 1