You can subscribe to this list here.
2000 |
Jan
|
Feb
|
Mar
(2) |
Apr
(8) |
May
(23) |
Jun
(2) |
Jul
(1) |
Aug
(27) |
Sep
(8) |
Oct
(5) |
Nov
(15) |
Dec
|
---|---|---|---|---|---|---|---|---|---|---|---|---|
2001 |
Jan
(7) |
Feb
(6) |
Mar
|
Apr
(50) |
May
(12) |
Jun
(21) |
Jul
(6) |
Aug
(1) |
Sep
(48) |
Oct
(7) |
Nov
(16) |
Dec
(8) |
2002 |
Jan
(27) |
Feb
(4) |
Mar
(56) |
Apr
(21) |
May
(11) |
Jun
(12) |
Jul
(4) |
Aug
(9) |
Sep
(8) |
Oct
(7) |
Nov
(1) |
Dec
|
2003 |
Jan
(7) |
Feb
(6) |
Mar
(7) |
Apr
(23) |
May
(4) |
Jun
(7) |
Jul
(9) |
Aug
(2) |
Sep
(7) |
Oct
(8) |
Nov
(6) |
Dec
(7) |
2004 |
Jan
(2) |
Feb
(24) |
Mar
(11) |
Apr
(4) |
May
(5) |
Jun
(1) |
Jul
(9) |
Aug
(26) |
Sep
(5) |
Oct
|
Nov
|
Dec
(10) |
2005 |
Jan
|
Feb
(1) |
Mar
(2) |
Apr
(5) |
May
|
Jun
(4) |
Jul
(8) |
Aug
(21) |
Sep
(5) |
Oct
(1) |
Nov
(1) |
Dec
(3) |
2006 |
Jan
(13) |
Feb
(1) |
Mar
(3) |
Apr
|
May
|
Jun
(5) |
Jul
(2) |
Aug
|
Sep
(3) |
Oct
(17) |
Nov
(11) |
Dec
(28) |
2007 |
Jan
(19) |
Feb
|
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
2008 |
Jan
|
Feb
|
Mar
|
Apr
(1) |
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
2016 |
Jan
|
Feb
|
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
(1) |
Dec
|
From: Sam S. <sd...@gn...> - 2005-04-20 18:26:49
|
fixed in the cvs -- Sam Steingold (http://www.podval.org/~sds) running w2k <http://www.camera.org> <http://www.palestinefacts.org/> <http://pmw.org.il/> <http://www.memri.org/> <http://www.dhimmi.com/> Lisp is not dead, it just smells funny. |
From: Ram B. <ra...@ve...> - 2005-04-20 17:30:52
|
(oops - I saw that I should send bug reports here...) I am using SBCL-0.8.21 on solaris. I am following the instructions in the INSTALL file - doing it at the lisp prompt. I get an error at this step of the install process: (mk:oos "cllib" :compile) This is the error: debugger invoked on a SB-INT:COMPILED-PROGRAM-ERROR in thread 15484: Execution of a form compiled with errors. Form: #'(NAMED-LAMBDA GEN-EXPONENTIAL-VARIATE-LOG-METHOD (MU &OPTIONAL (*RANDOM-STATE* *RANDOM-STATE*)) (DECLARE (TYPE RANDOM-STATE *RANDOM-STATE*) (TYPE (DOUBLE-FLOAT (0.0d0)) MU)) (BLOCK GEN-EXPONENTIAL-VARIATE-LOG-METHOD (* MU (- (LOG (RANDOM 1.0d0)))))) Compile-time-error: Lock on package COMMON-LISP violated when declaring the type of *RANDOM-STATE*. See also: The SBCL Manual, Node "Package Locks" The ANSI Standard, Section 11.1.2.1.2 Type HELP for debugger help, or (SB-EXT:QUIT) to exit from SBCL. restarts (invokable by number or by possibly-abbreviated name): 0: [ABORT] Exit debugger, returning to top level. ((SB-C::TOP-LEVEL-FORM (SB-IMPL::%DEFUN 'GEN-EXPONENTIAL-VARIATE-LOG-METHOD (SB-INT:NAMED-LAMBDA "#<...>" . "#<...>") "Generate a pseudo-random number drawn from an exponential PDF with a mean of mu: - X/MU %E -------- MU STATE is the random state to use. The logarithmic method is used. " "#<...>" . "#<...>"))) 0] backtrace 0: ((SB-C::TOP-LEVEL-FORM (SB-IMPL::%DEFUN 'GEN-EXPONENTIAL-VARIATE-LOG-METHOD (SB-INT:NAMED-LAMBDA "#<...>" . "#<...>") "Generate a pseudo-random number drawn from an exponential PDF with a mean of mu: - X/MU %E -------- MU STATE is the random state to use. The logarithmic method is used. " "#<...>" . "#<...>"))) 1: (SB-FASL::LOAD-FASL-GROUP #<SB-SYS:FD-STREAM for "file \"/net/oslo/vol/vol1/sim/work/ram/public_src/clocc_cvs/clocc/src/cllib/rng.fasl\"" {40F9F2A1}>) 2: (SB-FASL::LOAD-AS-FASL #<SB-SYS:FD-STREAM for "file \"/net/oslo/vol/vol1/sim/work/ram/public_src/clocc_cvs/clocc/src/cllib/rng.fasl\"" {40F9F2A1}> T #<unavailable argument>) 3: (SB-FASL::INTERNAL-LOAD #P"/net/oslo/vol/vol1/sim/work/ram/public_src/clocc_cvs/clocc/src/cllib/rng.fasl" #P"/net/oslo/vol/vol1/sim/work/ram/public_src/clocc_cvs/clocc/src/cllib/rng.fasl" :ERROR T NIL :BINARY NIL) 4: (SB-FASL::INTERNAL-LOAD #P"/net/oslo/vol/vol1/sim/work/ram/public_src/clocc_cvs/clocc/src/cllib/rng.fasl" #P"/net/oslo/vol/vol1/sim/work/ram/public_src/clocc_cvs/clocc/src/cllib/rng.fasl" :ERROR T NIL NIL :DEFAULT) 5: (LOAD "/net/oslo/vol/vol1/sim/work/ram/public_src/clocc_cvs/clocc/src/cllib/rng.fasl") 6: (MAKE::LOAD-FILE-OPERATION #<FILE: rng> :NEW-SOURCE-ALL) 7: (MAKE::COMPILE-AND-LOAD-OPERATION #<FILE: rng> :NEW-SOURCE-ALL) 8: (MAKE::OPERATE-ON-COMPONENT #<FILE: rng> :COMPILE :NEW-SOURCE-ALL) 9: (MAKE::OPERATE-ON-COMPONENTS #<DEFSYSTEM: cllib> :COMPILE :NEW-SOURCE-AND-DEPENDENTS #<unavailable argument>) 10: (MAKE::OPERATE-ON-COMPONENT #<DEFSYSTEM: cllib> :COMPILE :NEW-SOURCE-AND-DEPENDENTS) 11: ((LAMBDA ())) 12: (SB-C::%WITH-COMPILATION-UNIT #<CLOSURE (LAMBDA #) {400014BD}>) 13: (MAKE:OPERATE-ON-SYSTEM "cllib" :COMPILE :FORCE NIL :VERSION NIL :TEST NIL :VERBOSE NIL :LOAD-SOURCE-INSTEAD-OF-BINARY NIL :LOAD-SOURCE-IF-NO-BINARY NIL :BOTHER-USER-IF-NO-BINARY NIL :COMPILE-DURING-LOAD NIL :DRIBBLE NIL :MINIMAL-LOAD NIL :OVERRIDE-COMPILATION-UNIT T) 14: (SB-INT:EVAL-IN-LEXENV (MAKE:OOS "cllib" :COMPILE) #S(SB-KERNEL:LEXENV :FUNS NIL :VARS NIL :BLOCKS NIL :TAGS NIL :TYPE-RESTRICTIONS NIL :LAMBDA NIL :CLEANUP NIL :HANDLED-CONDITIONS NIL :DISABLED-PACKAGE-LOCKS NIL :POLICY ((SPEED . 1) (SPACE . 1) (SAFETY . 1) (SB-EXT:INHIBIT-WARNINGS . 1) (DEBUG . 1) (COMPILATION-SPEED . 1)))) 15: (SB-EXT:INTERACTIVE-EVAL (MAKE:OOS "cllib" :COMPILE)) 16: (SB-IMPL::REPL-FUN NIL) 17: ((LAMBDA ())) 18: ((LAMBDA ())) 19: (SB-IMPL::%WITH-REBOUND-IO-SYNTAX #<CLOSURE (LAMBDA #) {400001ED}>) 20: (SB-IMPL::TOPLEVEL-REPL NIL) 21: (SB-IMPL::TOPLEVEL-INIT) 22: ((FLET SB-IMPL::RESTART-LISP)) |
From: Sam S. <sd...@gn...> - 2005-03-02 18:33:35
|
> * Roberto Flores <syberfeboyrf@tznvy.pbz> [2005-03-01 21:56:29 -0800]: > > when calling the function the following error appears (I'm using clisp > 2.33.1 for windows) > > [<PORT:RESOLVE-HOST-IPADDR "www.google.com">] not implemented for > CLISP[2.33 <2004-03-17> (built in winsteingoldlap [10.0.64.31])] you have to use the "full" linking set. edit your clisp.bat and replace "base" with "full". you will have to recompile PORT/net.lisp. -- Sam Steingold (http://www.podval.org/~sds) running w2k <http://www.mideasttruth.com/> <http://www.honestreporting.com> <http://www.iris.org.il> <http://pmw.org.il/> <http://www.memri.org/> Don't use force -- get a bigger hammer. |
From: Roberto F. <flo...@gm...> - 2005-03-02 05:56:51
|
when calling the function the following error appears (I'm using clisp 2.33.1 for windows) [<PORT:RESOLVE-HOST-IPADDR "www.google.com">] not implemented for CLISP[2.33 <2004-03-17> (built in winsteingoldlap [10.0.64.31])] I need this library, please help!!! |
From: Vincent A. <vi...@ar...> - 2005-02-06 21:05:25
|
Hi, When building matlisp (which comes with a recent "DEFSYSTEM 3.4 Interim 3"), I get the following error: --- transcript starts here --------------------------------------------- ; - Loading defsystem "lazy-loader" debugger invoked on a TYPE-ERROR in thread 17320: The value #<SB-IMPL::UNIX-HOST {4002BD71}> is not of type (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING PATHNAME FILE-STREAM). You can type HELP for debugger help, or (SB-EXT:QUIT) to exit from SBCL. restarts (invokable by number or by possibly-abbreviated name): 0: [CONTINUE] Continue anyway (skipping to toplevel read/eval/print loop). 1: [QUIT ] Quit SBCL (calling #'QUIT, killing the process). (PATHNAME-HOST 1 #<SB-IMPL::UNIX-HOST {4002BD71}>)[:EXTERNAL] 0] backtrace 0: (PATHNAME-HOST 1 #<SB-IMPL::UNIX-HOST {4002BD71}>)[:EXTERNAL] 1: ("hairy arg processor for MAKE::COMPONENT-FULL-PATHNAME-I" #<FILE: lazy-loader> :BINARY NIL) 2: ("hairy arg processor for MAKE::COMPONENT-FULL-PATHNAME" #<FILE: lazy-loader> :BINARY NIL) 3: (MAKE::LOAD-FILE-OPERATION #<FILE: lazy-loader> :ALL) --- transcript ends here ----------------------------------------------- This appears to be coming from the following code snippet from component-full-pathname-i: (when (component-host component) ;; MCL2.0b1 and ACLPC cause an error on ;; (pathname-host nil) (pathname-host (component-host component) #+scl :case #+scl :common )) This code expects component-host to return a pathname, but apparently component-host returns a pathname host. And indeed, as of version 1.88 of defsystem.lisp, create-component-pathnames does the following: (setf (component-host component) (or (component-host component) (when parent (component-host parent)) (pathname-host *default-pathname-defaults*))) I've hacked around this by allowing both a pathname and a pathname host from component-host (see attachment), but a better solution would probably be to always store the same type of object in component-host. Vincent. |
From: Sam S. <sd...@gn...> - 2004-12-30 15:36:17
|
> * Russell McManus <ehffryy_zpznahf@lnubb.pbz> [2004-12-27 14:28:53 -0500]: > > I guess that package-short-name is no longer available from package > ext. thanks, fixed in the CVS. -- Sam Steingold (http://www.podval.org/~sds) running w2k <http://www.camera.org> <http://www.iris.org.il> <http://www.memri.org/> <http://www.mideasttruth.com/> <http://www.honestreporting.com> Yeah, yeah, I love cats too... wanna trade recipes? |
From: Russell M. <rus...@ya...> - 2004-12-29 20:06:01
|
I had to comment out the following lines in prompt.lisp to get cllib to compile with CVS clisp: cvs diff prompt.lisp Index: prompt.lisp =================================================================== RCS file: /cvsroot/clocc/clocc/src/cllib/prompt.lisp,v retrieving revision 2.10 diff -r2.10 prompt.lisp 17,18c17,18 < #+(and clisp lisp=cl) < (eval-when (compile load eval) (import 'ext:package-short-name :cllib)) --- > ;; #+(and clisp lisp=cl) > ;; (eval-when (compile load eval) (import 'ext:package-short-name :cllib)) I guess that package-short-name is no longer available from package ext. -russ |
From: Paolo A. <am...@mc...> - 2004-12-24 13:38:59
|
Sam Steingold <sd...@gn...> writes: > OK, I replaced it with a different hack. Works fine now. Thanks, Paolo -- Why Lisp? http://alu.cliki.net/RtL%20Highlight%20Film |
From: Sam S. <sd...@gn...> - 2004-12-23 22:31:57
|
> * Christophe Rhodes <pf...@ur....hx> [2004-12-23 14:32:19 +0000]: > > On Thu, 23 Dec 2004, Sam Steingold wrote: > >>> * Raymond Toy <enlzbaq.gbl@revpffba.pbz> [2004-12-22 15:09:00 -0500]: >>> >>> In sys.lisp, if comment out the lines: >>> >>> #+cmu ; permit #S(struct) in source code >>> (defmethod make-load-form ((self structure-object) &optional environment) >>> (make-load-form-saving-slots self :environment environment)) >>> >>> port.lisp will compile again. Don't know if the result works or not. >>> >>> This issue was discussed on cmucl-imp a month or two ago. >> >> I thought that the consensus was that "CL is not required to >> compile sources with literal #S() objects unless there is a >> MAKE-LOAD-FORM method, and the above method should work." > > The above method is demonstrably non-conforming. See CLHS 11.1.2.1.2, > point 19. OK, I replaced it with a different hack. thanks. -- Sam Steingold (http://www.podval.org/~sds) running w2k <http://www.camera.org> <http://www.iris.org.il> <http://www.memri.org/> <http://www.mideasttruth.com/> <http://www.honestreporting.com> Old Age Comes at a Bad Time. |
From: Christophe R. <cs...@he...> - 2004-12-23 14:32:28
|
On Thu, 23 Dec 2004, Sam Steingold wrote: >> * Raymond Toy <enlzbaq.gbl@revpffba.pbz> [2004-12-22 15:09:00 -0500]: >> >> In sys.lisp, if comment out the lines: >> >> #+cmu ; permit #S(struct) in source code >> (defmethod make-load-form ((self structure-object) &optional environment) >> (make-load-form-saving-slots self :environment environment)) >> >> port.lisp will compile again. Don't know if the result works or not. >> >> This issue was discussed on cmucl-imp a month or two ago. > > I thought that the consensus was that "CL is not required to > compile sources with literal #S() objects unless there is a > MAKE-LOAD-FORM method, and the above method should work." The above method is demonstrably non-conforming. See CLHS 11.1.2.1.2, point 19. Cheers, Christophe |
From: Sam S. <sd...@gn...> - 2004-12-23 14:22:36
|
> * Raymond Toy <enlzbaq.gbl@revpffba.pbz> [2004-12-22 15:09:00 -0500]: > > In sys.lisp, if comment out the lines: > > #+cmu ; permit #S(struct) in source code > (defmethod make-load-form ((self structure-object) &optional environment) > (make-load-form-saving-slots self :environment environment)) > > port.lisp will compile again. Don't know if the result works or not. > > This issue was discussed on cmucl-imp a month or two ago. I thought that the consensus was that "CL is not required to compile sources with literal #S() objects unless there is a MAKE-LOAD-FORM method, and the above method should work." -- Sam Steingold (http://www.podval.org/~sds) running w2k <http://www.camera.org> <http://www.iris.org.il> <http://www.memri.org/> <http://www.mideasttruth.com/> <http://www.honestreporting.com> Isn't "Microsoft Works" an advertisement lie? |
From: Paolo A. <am...@mc...> - 2004-12-22 20:20:28
|
Raymond Toy <ray...@er...> writes: > I don't have this problem using a build of cmucl from 2004-12-21. > Could you manually start cmucl, load up port.system, and run > > (mk:oos "port" :compile :force t) > > That should give an error message that might help track this down. [...] ; Compiling Load Time Value of (PCL::ENSURE-ACCESSOR 'PCL::WRITER '(PCL:SLOT-ACCESSOR :GLOBAL C::CONSTRAINTS ...) ...): ; Compiling Init Form for #<C::LAMBDA-VAR #x596D8A9D NAME= C::OBJECT>: Error in function LISP::ASSERT-ERROR: The assertion (EQ C::ENV (C::LAMBDA-ENVIRONMENT (C::LAMBDA-VAR-HOME C::THING))) failed. [Condition of type SIMPLE-ERROR] Restarts: 0: [CONTINUE] Retry assertion. 1: [ABORT ] Return to Top-Level. Debug (type H for help) (LISP::ASSERT-ERROR (EQ C::ENV (C::LAMBDA-ENVIRONMENT #)) NIL NIL) Source: Error finding source: Error in function DEBUG::GET-FILE-TOP-LEVEL-FORM: Source file no longer exists: target:code/macros.lisp. 0] The backtrace contains 1463 frames, and the KTerm I have used no longer has the topmost ones in its history. Many such frames have calls to C::IR1-CONVERT, C::COMPILE-MAKE-LOAD-FORM-INIT-FORMS, and other symbols in the C package. Paolo -- Why Lisp? http://alu.cliki.net/RtL%20Highlight%20Film |
From: Raymond T. <ray...@er...> - 2004-12-22 20:09:09
|
>>>>> "Raymond" == Raymond Toy <ray...@er...> writes: Raymond> I don't have this problem using a build of cmucl from 2004-12-21. Raymond> Could you manually start cmucl, load up port.system, and run Oops. I didn't have an up-to-date version. I think the error is caused by trying to dump objects of type FUNCTION into fasl files. In sys.lisp, if comment out the lines: #+cmu ; permit #S(struct) in source code (defmethod make-load-form ((self structure-object) &optional environment) (make-load-form-saving-slots self :environment environment)) port.lisp will compile again. Don't know if the result works or not. This issue was discussed on cmucl-imp a month or two ago. Ray |
From: Raymond T. <ray...@er...> - 2004-12-22 20:00:13
|
>>>>> "Paolo" == Paolo Amoroso <am...@mc...> writes: Paolo> I have successfully built clocc-top with CMUCL Snapshot 2004-12. But Paolo> when I try to build src/port, I get this error (`cmucl' is a stock Paolo> CMUCL core with the addition of Gray streams): [snip] Paolo> ; Compilation unit aborted. Paolo> ; 1 fatal error Paolo> ; 1 note I don't have this problem using a build of cmucl from 2004-12-21. Could you manually start cmucl, load up port.system, and run (mk:oos "port" :compile :force t) That should give an error message that might help track this down. Ray |
From: Paolo A. <am...@mc...> - 2004-12-22 19:14:30
|
I have successfully built clocc-top with CMUCL Snapshot 2004-12. But when I try to build src/port, I get this error (`cmucl' is a stock CMUCL core with the addition of Gray streams): paolo@plato:~/src/clocc/src/port$ export LISPTYPE=cmucl; export CMUCL=cmucl; make system /home/paolo/src/clocc/bin/run-lisp -i /home/paolo/src/clocc/clocc-top -i port.system \ -x '(funcall (intern "COMPILE-SYSTEM" :mk) "port")' ; Loading #P"/home/paolo/src/clocc/clocc-top.x86f". ; Loading #P"/home/paolo/src/clocc/src/port/port.system". ; Loading #P"/home/paolo/src/clocc/src/port/port.system". PORT/ALL (7 files) totals 83,128 bytes (81 kB) ; Python version 1.1, VM version Intel x86 on 22 DEC 04 08:07:48 pm. ; Compiling: /home/paolo/src/clocc/src/port/ext.lisp 18 OCT 04 05:17:36 pm ; Compiling DEFINE-CONDITION CODE: ; Compiling DEFINE-CONDITION CODE: ; Byte Compiling Top-Level Form: ; Compiling DEFINE-CONDITION CODE: ; Compiling DEFINE-CONDITION CODE: ; Compiling DEFINE-CONDITION CASE-ERROR: ; Byte Compiling Top-Level Form: ; Compiling DEFINE-CONDITION NOT-IMPLEMENTED: ; Compiling DEFINE-CONDITION NOT-IMPLEMENTED: ; Compiling DEFINE-CONDITION NOT-IMPLEMENTED: [...] ; File: /home/paolo/src/clocc/src/port/sys.lisp ; In: DEFUN COMPILED-FILE-P ; (DEFUN COMPILED-FILE-P (FILE-NAME) ; "Return T if the FILE-NAME is a filename designator for a valid compiled. ; Signal an error when it is not a filename designator. ; Return NIL when the file does not exist, or is not readable, ; or does not contain valid compiled code." ..) ; Note: Variable FILE-NAME defined but never used. [...] ; Python version 1.1, VM version Intel x86 on 22 DEC 04 08:07:49 pm. ; Compiling: /home/paolo/src/clocc/src/port/net.lisp 09 NOV 04 05:31:20 pm ; Byte Compiling Top-Level Form: ; Converted IPADDR-TO-DOTTED. ; Compiling DEFUN IPADDR-TO-DOTTED: ; Converted DOTTED-TO-IPADDR. ; Compiling DEFUN DOTTED-TO-IPADDR: ; Byte Compiling Top-Level Form: [...] ; Compiling Load Time Value of (PCL::ENSURE-ACCESSOR 'PCL::WRITER '(PCL:SLOT-ACCESSOR :GLOBAL KERNEL::HASH6 ...) ...): ; Compiling Load Time Value of (PCL::ENSURE-ACCESSOR 'PCL::WRITER '(PCL:SLOT-ACCESSOR :GLOBAL KERNEL::HASH7 ...) ...): ; Compiling Load Time Value of (PCL::ENSURE-ACCESSOR 'PCL::WRITER '(PCL:SLOT-ACCESSOR :GLOBAL KERNEL::CLASS ...) ...): ; Compiling Load Time Value of (PCL::FIND-CLASS-CELL 'KERNEL::STRUCTURE-CLASS): ; Compiling Creation Form for #<KERNEL::STRUCTURE-CLASS HOSTENT {588021D5}>: ; Compiling Load Time Value of (PCL::ENSURE-ACCESSOR 'PCL::WRITER '(PCL:SLOT-ACCESSOR :GLOBAL KERNEL::CLASS-INFO ...) ...): ; Compiling Load Time Value of (PCL::FIND-CLASS-CELL 'KERNEL::TYPE-CLASS): ; Compiling Creation Form for #<TYPE-CLASS KERNEL::CLASS>: ; Compiling Load Time Value of (PCL::ENSURE-ACCESSOR 'PCL::WRITER '(PCL:SLOT-ACCESSOR :GLOBAL KERNEL::NAME ...) ...): ; Compiling Load Time Value of (PCL::ENSURE-ACCESSOR 'PCL::WRITER '(PCL:SLOT-ACCESSOR :GLOBAL KERNEL::SIMPLE-SUBTYPEP ...) ...): ; Compilation aborted after 0:00:00. ; Compilation unit aborted. ; 1 fatal error ; 1 note make: *** [system] Error 1 paolo@plato:~/src/clocc/src/port$ Is this a CMUCL issue? Paolo -- Why Lisp? http://alu.cliki.net/RtL%20Highlight%20Film |
From: Sam S. <sd...@gn...> - 2004-09-21 20:34:14
|
> * Reini Urban <eh...@k-...> [2004-09-21 22:18:41 +0200]: > > since clisp locks now CLOS the attached patch is required. > > Index: clocc.lisp > =================================================================== > RCS file: /cvsroot/clocc/clocc/clocc.lisp,v > retrieving revision 1.13 > diff -u -b -r1.13 clocc.lisp > --- clocc.lisp 12 Dec 2000 16:10:26 -0000 1.13 > +++ clocc.lisp 21 Sep 2004 20:17:46 -0000 > @@ -68,8 +68,9 @@ > (setf (second excl:arglist) > (map 'vector key (second excl:arglist))))))) > > -#+clisp (setq clos::*warn-if-gf-already-called* nil > - clos::*gf-warn-on-replacing-method* nil) > +#+clisp (ext:without-package-lock ("CLOS") > + (setq clos::*warn-if-gf-already-called* nil > + clos::*gf-warn-on-replacing-method* nil)) > > #+cmu > (progn > @@ -79,7 +80,7 @@ > > #+gcl (defmacro lambda (bvl &body forms) `#'(lambda ,bvl ,@forms)) > > -#-(or allegro clisp mcl) > +#-(or allegro clisp mcl cormanlisp) > (define-setf-expander values (&rest places &environment env) > (loop :for pl :in places :with te :and va :and ne :and se :and ge :do > (multiple-value-setq (te va ne se ge) (get-setf-expansion pl env)) you are using an ancient version. please try CVS. -- Sam Steingold (http://www.podval.org/~sds) running w2k <http://www.camera.org> <http://www.iris.org.il> <http://www.memri.org/> <http://www.mideasttruth.com/> <http://www.honestreporting.com> Only adults have difficulty with child-proof caps. |
From: Reini U. <ru...@x-...> - 2004-09-21 20:18:49
|
since clisp locks now CLOS the attached patch is required. |
From: Paolo A. <am...@mc...> - 2004-09-10 17:39:09
|
Sam Steingold <sd...@gn...> writes: > works on clisp just fine. > should also work on CMUCL as > > (cllib:regress '((1d0 . 1d0) (2d0 . 2d0) (3d0 . 3d0))) Works fine also with CMUCL, thanks. Paolo -- Why Lisp? http://alu.cliki.net/RtL%20Highlight%20Film |
From: Sam S. <sd...@gn...> - 2004-09-09 19:04:35
|
> * Paolo Amoroso <nz...@zp...> [2004-09-08 20:56:28 +0200]: > > Am I supposed to evaluate a call to CLLIB:REGRESS like this? > > (cllib:regress '((1.0 . 1.0) (2.0 . 2.0) (3.0 . 3.0))) > > If so, I am puzzled at its result: > > CL-USER> (cllib:regress '((1.0 . 1.0) (2.0 . 2.0) (3.0 . 3.0))) > {.00000 .00000} > 0.9999999410040609d0 > CL-USER> > > I expected to get the line with slope 1 and constant 0. I'm using the > latest CLOCC CVS sources with CMUCL 19a-pre3 under Debian Woody. works on clisp just fine. should also work on CMUCL as (cllib:regress '((1d0 . 1d0) (2d0 . 2d0) (3d0 . 3d0))) because of some double-float declarations in CLLIB/math.lisp. I guess I should remove the declarations... -- Sam Steingold (http://www.podval.org/~sds) running w2k <http://www.camera.org> <http://www.iris.org.il> <http://www.memri.org/> <http://www.mideasttruth.com/> <http://www.honestreporting.com> "Syntactic sugar causes cancer of the semicolon." -Alan Perlis |
From: Paolo A. <am...@mc...> - 2004-09-09 13:18:14
|
Am I supposed to evaluate a call to CLLIB:REGRESS like this? (cllib:regress '((1.0 . 1.0) (2.0 . 2.0) (3.0 . 3.0))) If so, I am puzzled at its result: CL-USER> (cllib:regress '((1.0 . 1.0) (2.0 . 2.0) (3.0 . 3.0))) {.00000 .00000} 0.9999999410040609d0 CL-USER> I expected to get the line with slope 1 and constant 0. I'm using the latest CLOCC CVS sources with CMUCL 19a-pre3 under Debian Woody. Paolo -- Why Lisp? http://alu.cliki.net/RtL%20Highlight%20Film |
From: Raymond T. <ray...@er...> - 2004-08-19 00:52:32
|
>>>>> "Raymond" == Raymond Toy <rt...@ea...> writes: Raymond> Marco Antoniotti wrote: >> How should I declare the CL array? >> X(8, 10) ==> (make-array (* 8 10) ....) >> Raymond> Yes, that's right. All multi-dimensional arrays are 1D arrays with Raymond> the same number of elements. >> ? >> Also, FREF seems quite strange to me. I tried the following >> (defvar arr (make-array (* 8 10) ....)) ;; filled in from 0 to 79. >> (f2cl-lib:fref arr (-9 11) ((1 8) (1 10))) ==> 70 >> What is the meaning of this? Raymond> Macroexpand is your friend. But basically you are trying to access Raymond> element arr(-9, 11) which is strictly illegal since the first index is Raymond> supposed to be 1 to 8 and the second index is 1 to 10. Raymond> (I think there's a variable you can set that will check array bounds.) Raymond> But what happens is the real index is computed as (-9 + 1) + 8*(11 - Raymond> 1) = 70, so you got element 70 from arr. No, this is totally wrong. It should be (-9 - 1) + 8*(11 - 1) = 70. Ray |
From: Raymond T. <rt...@ea...> - 2004-08-18 03:37:56
|
Marco Antoniotti wrote: > > How should I declare the CL array? > > X(8, 10) ==> (make-array (* 8 10) ....) > Yes, that's right. All multi-dimensional arrays are 1D arrays with the same number of elements. > ? > > Also, FREF seems quite strange to me. I tried the following > > (defvar arr (make-array (* 8 10) ....)) ;; filled in from 0 to 79. > > (f2cl-lib:fref arr (-9 11) ((1 8) (1 10))) ==> 70 > > What is the meaning of this? Macroexpand is your friend. But basically you are trying to access element arr(-9, 11) which is strictly illegal since the first index is supposed to be 1 to 8 and the second index is 1 to 10. (I think there's a variable you can set that will check array bounds.) But what happens is the real index is computed as (-9 + 1) + 8*(11 - 1) = 70, so you got element 70 from arr. Ray |
From: Marco A. <ma...@cs...> - 2004-08-17 23:24:34
|
Hi I think I got another problem with odepack-lsode. I wrote the following routine, which, AFAIU, is a translation of the Fortran example given in the main opkdmain.f file from netlib (sorry if it is long.) > (defun kinetic-example () > (flet ((fex (neq time y ydot) > (declare (ignore neq time)) > (setf (aref ydot 0) #I(-0.04d0 * y[0] + 1.0D4 * y[1] * y[2]) > (aref ydot 1) #I(3.0D7 * y[1] * y[1])) > (setf (aref ydot 2) #I(-ydot[0] - ydot[1])) > ) > (jex (neq time y ml mu pd nrpd) > (declare (ignore neq time ml mu nrpd)) > (setf (aref pd 0 0) -0.04D0) > (setf (aref pd 0 1) #I(1.0D4 * y[2])) > (setf (aref pd 0 2) #I(1.0D4 * y[1])) > (setf (aref pd 1 0) 0.04D0) > (setf (aref pd 1 2) (- (aref pd 0 2))) > (setf (aref pd 2 1) #I(6.0D7 * y[1])) > (setf (aref pd 1 1) #I(-pd[0, 1] - pd[2, 1])) > ) > ) > (let ((neq (make-array 1 :initial-element 3 :element-type 'f2cl-lib:integer4)) > ;; (neq 3) ; Fortran is fun! > (time 0.D0) > (tout 0.4D0) > (itol 2) > (rtol (make-array 1 :initial-element 1.0D-4 :element-type 'double-float)) > ;; (rtol 1.0D-4) ; Fortran is fun! > (itask 1) > (istate 1) > (iopt 1) > (lrw 58) > (liw 23) > (mf 21) > ;; > (y (make-array 3 > :element-type 'double-float > :initial-contents '(1.0D0 0.0D0 0.0D0))) > (atol (make-array 3 > :element-type 'double-float > :initial-contents '(1.0D-6 1.0D-10 1.0D-6))) > > (iwork (make-array 23 > :initial-element 0 > :element-type 'fixnum)) > (rwork (make-array 58 > :initial-element 0.0D0 > :element-type 'double-float)) > ) > (loop for iout from 1 upto 12 > for t-out = tout then (* tout 10.0D0) > do (multiple-value-bind (fex > neq > y > time > tout > itol > rtol > atol > itask > istate > iopt > rwork > lrw > iwork > liw > jex > mf) > (dlsode #'fex > neq > y > time > t-out > itol > rtol > atol > itask > istate > iopt > rwork > lrw > iwork > liw > #'jex > mf) > (declare (ignore fex > neq > ;; y > ;; time > tout > itol > rtol > atol > itask > ;; istate > iopt > rwork > lrw > iwork > liw > jex > mf)) > (format t "At t = ~F Y = ~S.~%" time y) > (when (minusp istate) > (error "Error halt. ISTATE = ~D." istate))) > finally (format t "~%N. steps = ~D, N. f-s = ~D, N. J-s = ~D.~%" > (aref iwork 11) > (aref iwork 12) > (aref iwork 13)) > )) > )) When I try to execute the above in LW (I'd bet the same would happen in other lisps) I get the following error Error: The array #(0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 9900.990099009901 1.0E10 1000000.0 -0.039995298965865594 0.0 0.039995298965865594 0.0 0.0 0.0) requires 1 subscript but 2 were given. 1 (abort) Return to level 0. 2 Return to top loop level 0. Type :b for backtrace, :c <option number> to proceed, or :? for other options I tracked down this error to the DPREPJ routine in the call to the JEX local function, which expects a 2D array, but it seems to get a 1D array slice. Is this the correct diagnosis? Is this a Fortran trick to pass around things that can be seen of different shapes at different times? thanks -- Marco |
From: Marco A. <ma...@cs...> - 2004-08-17 22:51:42
|
On Aug 17, 2004, at 5:00 PM, Raymond Toy wrote: >>>>>> "Marco" == Marco Antoniotti <ma...@cs...> writes: > > Marco> Hi > > > Marco> I think I got another problem with odepack-lsode. > > Marco> I wrote the following routine, which, AFAIU, is a > translation of the > Marco> Fortran example given in the main opkdmain.f file from > netlib (sorry if > Marco> it is long.) > > [snip] > > Marco> I tracked down this error to the DPREPJ routine in the call > to the JEX > Marco> local function, which expects a 2D array, but it seems to > get a 1D array > Marco> slice. > > Marco> Is this the correct diagnosis? Is this a Fortran trick to > pass around > Marco> things that can be seen of different shapes at different > times? > > You are correct. All arrays in Fortran are in column-major order, > which doesn't fit well with Lisp's (and C) row-major order. Thus, in > f2cl, all arrays are converted to 1D arrays. You will have to do the > same thing. (It might have been beneficial to take the Fortran > example and run f2cl over it to see what happens. And then write your > own lisp version.) > > You can use the fref and fset macros to access the multi-dimensional > arrays. In Fortran, if you have an array with dimensions x(8,10), and > you want to access element x(1,2), you can use > > (fref x (1 2) ((1 8) (1 10))) > > (I think.) The last arg there gives the upper and lower bounds on the > dimensions of the array so that fref can access the right element. > (Fortran arrays can have negative indices.) > > Let me know if this solves your problem. > I'll try. How should I declare the CL array? X(8, 10) ==> (make-array (* 8 10) ....) ? So that Also, FREF seems quite strange to me. I tried the following (defvar arr (make-array (* 8 10) ....)) ;; filled in from 0 to 79. (f2cl-lib:fref arr (-9 11) ((1 8) (1 10))) ==> 70 What is the meaning of this? Cheers marco -- Marco Antoniotti http://bioinformatics.nyu.edu NYU Courant Bioinformatics Group tel. +1 - 212 - 998 3488 715 Broadway 10th FL fax. +1 - 212 - 998 3484 New York, NY, 10003, U.S.A. |
From: Raymond T. <ray...@er...> - 2004-08-17 21:10:12
|
>>>>> "Marco" == Marco Antoniotti <ma...@cs...> writes: Marco> Hi Marco> I think I got another problem with odepack-lsode. Marco> I wrote the following routine, which, AFAIU, is a translation of the Marco> Fortran example given in the main opkdmain.f file from netlib (sorry if Marco> it is long.) [snip] Marco> I tracked down this error to the DPREPJ routine in the call to the JEX Marco> local function, which expects a 2D array, but it seems to get a 1D array Marco> slice. Marco> Is this the correct diagnosis? Is this a Fortran trick to pass around Marco> things that can be seen of different shapes at different times? You are correct. All arrays in Fortran are in column-major order, which doesn't fit well with Lisp's (and C) row-major order. Thus, in f2cl, all arrays are converted to 1D arrays. You will have to do the same thing. (It might have been beneficial to take the Fortran example and run f2cl over it to see what happens. And then write your own lisp version.) You can use the fref and fset macros to access the multi-dimensional arrays. In Fortran, if you have an array with dimensions x(8,10), and you want to access element x(1,2), you can use (fref x (1 2) ((1 8) (1 10))) (I think.) The last arg there gives the upper and lower bounds on the dimensions of the array so that fref can access the right element. (Fortran arrays can have negative indices.) Let me know if this solves your problem. Ray |