From: Nelson Marcelino
Subject: Cells under Lispworks
Date: 
Message-ID: <1131144208.735549.266410@g49g2000cwa.googlegroups.com>
I am having trouble getting cells running under macosx Lispworks 4.4.6

CL-USER 3 > (in-package #:asdf)
#<The ASDF package, 181/256 internal, 64/64 external>

ASDF 4 > *asdf-revision*
(1 79)

ASDF 5 >  (asdf:oos 'asdf:load-op :cells)

Error:
; Loading /Applications/LispWorks Personal
4.4.6/Library/lib/4-4-0-0/load-on-demand/ccl/xp-fancyformat.nfasl on
demand...
component "cells" not found
  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

ASDF 6 : 1 > :top

ASDF 7 > (require :cells)

Error: Unknown module :CELLS.
  1 (abort) Return to level 0.
  2 Return to top loop level 0.

how do I get this thing running?

From: Kenny Tilton
Subject: Re: Cells under Lispworks
Date: 
Message-ID: <436BE9FD.8000301@nyc.rr.com>
[by email and to list]

Nelson Marcelino wrote:
> I am having trouble getting cells running under macosx Lispworks 4.4.6
> 
> CL-USER 3 > (in-package #:asdf)
> #<The ASDF package, 181/256 internal, 64/64 external>
> 
> ASDF 4 > *asdf-revision*
> (1 79)
> 
> ASDF 5 >  (asdf:oos 'asdf:load-op :cells)
> 
> Error:
> ; Loading /Applications/LispWorks Personal
> 4.4.6/Library/lib/4-4-0-0/load-on-demand/ccl/xp-fancyformat.nfasl on
> demand...
> component "cells" not found
>   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
> 
> ASDF 6 : 1 > :top
> 
> ASDF 7 > (require :cells)
> 
> Error: Unknown module :CELLS.
>   1 (abort) Return to level 0.
>   2 Return to top loop level 0.
> 
> how do I get this thing running?
> 

Did you (push <path-to-cells-directory> asdf:*central-registry*)?

-- 
Kenny

Why Lisp? http://wiki.alu.org/RtL_Highlight_Film

"I've wrestled with reality for 35 years, Doctor, and I'm happy to state 
I finally won out over it."
     Elwood P. Dowd, "Harvey", 1950
From: Nelson Marcelino
Subject: Re: Cells under Lispworks
Date: 
Message-ID: <1131149376.609420.150950@g47g2000cwa.googlegroups.com>
ASDF 9 > (push "~/lisp/cells_2.0" asdf:*central-registry*)
("~/lisp/cells_2.0" *DEFAULT-PATHNAME-DEFAULTS*)

ASDF 11 : 1 > (asdf:oos 'asdf:load-op :cells)

Error: component "cells" not found
  1 (abort) Return to level 1.
  2 Return to debug level 1.
  3 Return to level 0.
  4 Return to top loop level 0.

Type :b for backtrace, :c <option number> to proceed,  or :? for other
options
From: Rob Warnock
Subject: Re: Cells under Lispworks
Date: 
Message-ID: <LcmdnWtaid-jqfHenZ2dnUVZ_tednZ2d@speakeasy.net>
In article <························@g47g2000cwa.googlegroups.com>,
+---------------
| ASDF 9 > (push "~/lisp/cells_2.0" asdf:*central-registry*)
| ("~/lisp/cells_2.0" *DEFAULT-PATHNAME-DEFAULTS*)
| ASDF 11 : 1 > (asdf:oos 'asdf:load-op :cells)
| Error: component "cells" not found  ...
+---------------

Are you sure that ASDF under Lispworks understands "~/" in
pathname strings? Try (TRUENAME "~/lisp/cells_2.0") and see
what that gives you, and PUSH *that* instead. And if TRUENAME
fails, try (TRUENAME "home:lisp/cells_2.0") [or whatever logical
device Lispworks uses for "$HOME"].

If that fails, try a fully-specified absolute namestring; then
[as Kenny suggested] a pathname...


-Rob

-----
Rob Warnock			<····@rpw3.org>
627 26th Avenue			<URL:http://rpw3.org/>
San Mateo, CA 94403		(650)572-2607
From: Kenny Tilton
Subject: Re: Cells under Lispworks
Date: 
Message-ID: <436C1A6B.2000908@nyc.rr.com>
Nelson Marcelino wrote:

> ASDF 9 > (push "~/lisp/cells_2.0" asdf:*central-registry*)
> ("~/lisp/cells_2.0" *DEFAULT-PATHNAME-DEFAULTS*)
> 
> ASDF 11 : 1 > (asdf:oos 'asdf:load-op :cells)
> 
> Error: component "cells" not found
>   1 (abort) Return to level 1.
>   2 Return to debug level 1.
>   3 Return to level 0.
>   4 Return to top loop level 0.
> 
> Type :b for backtrace, :c <option number> to proceed,  or :? for other
> options
> 

I have solved oddities like this by pushing a pathname pointing to the 
same place, where a perfectly good string path failed.

The bigger picture is that this error is generated only if ASDF cannot 
find cells.asd in some directory pointed to by some entry in the registry.

fwiw, I have been massively frustrated in the past by this, and iirc it 
was using make-pathname that finally got me over the hump. Not that it 
should be necessary, but if you want to get on with your life it is 
worth a try.

-- 
Kenny

Why Lisp? http://wiki.alu.org/RtL_Highlight_Film

"I've wrestled with reality for 35 years, Doctor, and I'm happy to state 
I finally won out over it."
     Elwood P. Dowd, "Harvey", 1950
From: Raffael Cavallaro
Subject: Re: Cells under Lispworks
Date: 
Message-ID: <2005110500412816807%raffaelcavallaro@pasdespamsilvousplaitmaccom>
On 2005-11-04 19:09:36 -0500, "Nelson Marcelino" <·········@gmail.com> said:

> ASDF 9 > (push "~/lisp/cells_2.0" asdf:*central-registry*)
> ("~/lisp/cells_2.0" *DEFAULT-PATHNAME-DEFAULTS*)
> 
> ASDF 11 : 1 > (asdf:oos 'asdf:load-op :cells)
> 
> Error: component "cells" not found
>   1 (abort) Return to level 1.
>   2 Return to debug level 1.
>   3 Return to level 0.
>   4 Return to top loop level 0.
> 
> Type :b for backtrace, :c <option number> to proceed,  or :? for other
> options

What's getting Nelson here is the lack of a trailing / believe it or 
not - I  just tested this both ways and it only works with a trailing 
slash.

So Nelson, do this:

(pushnew "~/lisp/cells_2.0/" asdf:*central-registry* :test #'equal)
                         ^^^
              you really need this trailing slash!

then loading cells should be  fine:

(asdf:operate 'asdf:load-op :cells)

I would strongly recommend using asdf-install to download and configure 
asdf systems - it automates everything and you don't get hung up on 
silly details like this one:

<http://www.cliki.net/asdf-install>

and especially recommend Edi Weitz's lifesaving tutorial on getting 
started setting up asdf-install and using it:

<http://weitz.de/asdf-install/>

regards

P.S.

Rob, it appears that lispworks does understand ~

CL-USER 11 > (truename "~/Documents/")
#P"/Users/raffaelc/Documents/"

just in case anyone was wondering.
From: Rob Warnock
Subject: Re: Cells under Lispworks
Date: 
Message-ID: <Wf6dnRN4IJt-GvHeRVn-ig@speakeasy.net>
Raffael Cavallaro  <················@pas-d'espam-s'il-vous-plait-mac.com> wrote:
+---------------
| P.S.  Rob, it appears that lispworks does understand ~
| CL-USER 11 > (truename "~/Documents/")
| #P"/Users/raffaelc/Documents/"
+---------------

Oh, o.k.   CMUCL doesn't, which is why I brought that up:

    cmu> (truename "home:tmp/foo")

    #p"/u/rpw3/tmp/foo"
    cmu> (truename "~/tmp/foo")

    File-error in function TRUENAME:  The file "~/tmp/foo" does not exist.
       [Condition of type KERNEL:SIMPLE-FILE-ERROR]

    Restarts:
      0: [ABORT] Return to Top-Level.
    ...


-Rob

-----
Rob Warnock			<····@rpw3.org>
627 26th Avenue			<URL:http://rpw3.org/>
San Mateo, CA 94403		(650)572-2607
From: Raffael Cavallaro
Subject: Re: Cells under Lispworks
Date: 
Message-ID: <2005110512582816807%raffaelcavallaro@pasdespamsilvousplaitmaccom>
On 2005-11-05 05:22:27 -0500, ····@rpw3.org (Rob Warnock) said:

> Oh, o.k.   CMUCL doesn't, which is why I brought that up:

I know, I've been burned by this in the past with sbcl, so I now use 
fully qualified paths by habit.

regards
From: ····@sharedlogic.ca
Subject: Re: Cells under Lispworks
Date: 
Message-ID: <1131232478.341028.81740@f14g2000cwb.googlegroups.com>
Nelson Marcelino wrote:
> ASDF 9 > (push "~/lisp/cells_2.0" asdf:*central-registry*)
> ("~/lisp/cells_2.0" *DEFAULT-PATHNAME-DEFAULTS*)
[...]

The lack of a trailing slash has been noted already elsewhere
in this thread.  However, to understand why it's needed, I
heartily recommend chapters 14 and 15 in Peter Seibel's
excellent Practical Common Lisp.

-Mike
From: Alain Picard
Subject: Re: Cells under Lispworks
Date: 
Message-ID: <87pspflkah.fsf@memetrics.com>
"Nelson Marcelino" <·········@gmail.com> writes:

> ASDF 9 > (push "~/lisp/cells_2.0" asdf:*central-registry*)
> ("~/lisp/cells_2.0" *DEFAULT-PATHNAME-DEFAULTS*)
>

Try

ASDF 9 > (push "~/lisp/cells_2.0/" asdf:*central-registry*)

Note trailing slash.
From: Nelson Marcelino
Subject: Re: Cells under Lispworks
Date: 
Message-ID: <1131188213.700913.221580@g44g2000cwa.googlegroups.com>
Raffael's suggestion solved my problem. Below is sample run from
internal-combustion.lisp.
I am not sure, at this point, what this thing does or if it is even
working correctly. I will
proceed further with my investigation. Thanks to everyone for the tips.

CELLS 19 > (cv-test-engine)
ok: (MAKE-INSTANCE (QUOTE NON-MODEL))
ok: (MAKE-BE (QUOTE TRUE-MODEL))
ok: (MAKE-BE (QUOTE INDIRECT-MODEL))
0> error is | #<SIMPLE-ERROR 10FD7433>
ok: (HANDLER-CASE (PROGN (MAKE-BE (QUOTE FAUX-MODEL)) NIL) (T (ERROR)
(TRC error is ERROR) ERROR))
0> cylinders output | #<ENGINE 10FD10FF> | NIL | 4
0> mod3ek output | #<ENGINE 10FD10FF>
ok: (EQL GAS (FUEL (MAKE-BE (QUOTE ENGINE) FUEL GAS)))
0> cylinders output | #<ENGINE 1101A46B> | NIL | 4
0> mod3ek output | #<ENGINE 1101A46B>
ok: (EQL DIESEL (SETF (FUEL (MAKE-BE (QUOTE ENGINE) FUEL GAS)) DIESEL))
0> cylinders output | #<ENGINE-W-INITFORM 1103ECC3> | NIL | 33
ok: (PROGN (EQL 33 (CYLINDERS (MAKE-BE (QUOTE ENGINE-W-INITFORM)))))
0> cylinders output | #<ENGINE 1104B03B> | NIL | 4
0> mod3ek output | #<ENGINE 1104B03B>
ok: (EQL 4 (CYLINDERS (MAKE-BE (QUOTE ENGINE) CYLINDERS 4)))
0> cylinders output | #<ENGINE 100CAC7F> | NIL | 4
0> mod3ek output | #<ENGINE 100CAC7F>
ok: (EQL 4 (CYLINDERS (MAKE-BE (QUOTE ENGINE) CYLINDERS (C-IN 4))))
0> cylinders output | #<ENGINE 10FE9717> | NIL | 4
0> mod3ek output | #<ENGINE 10FE9717>
ok: (EQL 4 (CYLINDERS (MAKE-BE (QUOTE ENGINE) CYLINDERS (C? (+ 2 2)))))
0> cylinders output | #<ENGINE 110081BB> | NIL | 8
0> mod3ek output | #<ENGINE 110081BB>
ok: (EQL 16 (VALVES (MAKE-BE (QUOTE ENGINE) CYLINDERS 8 VALVES (C? (*
(CYLINDERS SELF) (VALVES-PER-CYLINDER SELF))) VALVES-PER-CYLINDER (C?
(FLOOR (CYLINDERS SELF) 4)))))
0> starting output init test | 6 | 6
0> cylinders output | #<ENGINE 1007F7B3> | NIL | 6
0> mod3ek output | #<ENGINE 1007F7B3>
ok: (OUTPUTTED (QUOTE CYLINDERS))
ok: (EQL 6 (OUTPUT-NEW (QUOTE CYLINDERS)))
0> starting output init test | 10 | (C-IN 10)
0> cylinders output | #<ENGINE 100AC163> | NIL | 10
0> mod3ek output | #<ENGINE 100AC163>
ok: (OUTPUTTED (QUOTE CYLINDERS))
ok: (EQL 10 (OUTPUT-NEW (QUOTE CYLINDERS)))
0> starting output init test | 5 | (C? (+ 2 3))
0> cylinders output | #<ENGINE 1008356F> | NIL | 5
0> mod3ek output | #<ENGINE 1008356F>
ok: (OUTPUTTED (QUOTE CYLINDERS))
ok: (EQL 5 (OUTPUT-NEW (QUOTE CYLINDERS)))
0> cylinders output | #<ENGINE 100B0F47> | NIL | 4
0> mod3ek output | #<ENGINE 100B0F47>
0> cylinders output | #<ENGINE 100B0F47> | 4 | 6
ok: (LET ((E (MAKE-BE (QUOTE ENGINE) CYLINDERS (C-IN 4)))) (SETF
(CYLINDERS E) 6) (EQL 6 (CYLINDERS E)))
0> cylinders output | #<ENGINE 10094E23> | NIL | 4
0> mod3ek output | #<ENGINE 10094E23>
C-STOP> stopping because ((setf md-slot-value)> cellular slot ~a of ~a
cannot be setf unless initialized as inputp CYLINDERS #<ENGINE
10094E23>)c-break > stopping > ((setf md-slot-value)> cellular slot ~a
of ~a cannot be setf unless initialized as inputp CYLINDERS #<ENGINE
10094E23>)
0> error correctly is | #<SIMPLE-ERROR 100B5393>
ok: (HANDLER-CASE (LET ((E (MAKE-BE (QUOTE ENGINE) CYLINDERS 4))) (SETF
(CYLINDERS E) 6) NIL) (T (ERROR) (TRC error correctly is ERROR)
(CELL-RESET) T))
0> cylinders output | #<ENGINE 100C4F07> | NIL | 4
0> mod3ek output | #<ENGINE 100C4F07>
C-STOP> stopping because ((setf md-slot-value)> cellular slot ~a of ~a
cannot be setf unless initialized as inputp CYLINDERS #<ENGINE
100C4F07>)c-break > stopping > ((setf md-slot-value)> cellular slot ~a
of ~a cannot be setf unless initialized as inputp CYLINDERS #<ENGINE
100C4F07>)
0> error correctly is | #<SIMPLE-ERROR 100A2D43>
ok: (HANDLER-CASE (LET ((E (MAKE-BE (QUOTE ENGINE) CYLINDERS (C? (+ 2
2))))) (SETF (CYLINDERS E) 6) NIL) (T (ERROR) (TRC error correctly is
ERROR) (SETF *STOP* NIL) T))
0> cylinders output | #<ENGINE 10099793> | NIL | 4
0> mod3ek output | #<ENGINE 10099793>
ok: (AND (EQL 4 (OUTPUT-NEW (QUOTE CYLINDERS))) (NOT (OUTPUT-OLD-BOUNDP
(QUOTE CYLINDERS))))
ok: (VALVES-PER-CYLINDER E)
ok: (VALVES E)
ok: (EQL 16 (VALVES E))
0> cylinders output | #<ENGINE 10074C03> | NIL | 4
0> mod3ek output | #<ENGINE 10074C03>
0> !!!!!!!!hunbh?
ok: (OUTPUTTED (QUOTE CYLINDERS))
ok: (NOT VALVES-FIRED)
0> sampling valves....
0> !!!!!! valves
ok: (VALVES E)
ok: VALVES-FIRED
ok: (AND 1 (NOT (OUTPUTTED (QUOTE CYLINDERS))))
0> same cyl
ok: (AND 2 (NOT (OUTPUTTED (QUOTE CYLINDERS))))
ok: (NOT VALVES-FIRED)
0> cylinders output | #<ENGINE 10074C03> | 4 | 6
ok: (OUTPUTTED (QUOTE CYLINDERS))
ok: (NOT VALVES-FIRED)
0> !!!!!! valves
ok: (VALVES E)
ok: VALVES-FIRED
NIL

CELLS 20 >
From: Kenny Tilton
Subject: Re: Cells under Lispworks
Date: 
Message-ID: <WV1bf.12556$u43.4078@twister.nyc.rr.com>
Nelson Marcelino wrote:
> Raffael's suggestion solved my problem. Below is sample run from
> internal-combustion.lisp.
> I am not sure, at this point, what this thing does or if it is even
> working correctly. I will
> proceed further with my investigation. Thanks to everyone for the tips.
> 
> CELLS 19 > (cv-test-engine)
> ok: (MAKE-INSTANCE (QUOTE NON-MODEL))
> ok: (MAKE-BE (QUOTE TRUE-MODEL))
> ok: (MAKE-BE (QUOTE INDIRECT-MODEL))

[snip]

internal-combustion is just one of several regression tests. If it 
finishes without leaving you in a backtrace (looks like it did) you have 
a working version of Cells.

The errors you do see in the output are tests that user errors (misuse 
of Cells) correctly produce run-time errors. These tests are conducted 
within handlers and backtrace if no error is emitted by Cells internals.

The regression does not otherwise "do anything", but it does exercise 
the edges as well as the basic Cells functionality, and I ended up 
commenting the code extensively to explain each subtest. As such it 
indirectly documents Cells pretty thoroughly.

For more doc, you might try the Cells-Gtk site where Peter Denno is 
bravely trying to fill the Cells doc gap.

-- 
Kenny

Why Lisp? http://wiki.alu.org/RtL_Highlight_Film

"I've wrestled with reality for 35 years, Doctor, and I'm happy to state 
I finally won out over it."
     Elwood P. Dowd, "Harvey", 1950