(cc'd to list)
Hi Tamas,
I'm still not sure what's up with the need for LIFT but I'm glad that
things are working for you.
I am just about to announce the CL-Variates simplification; if you
upgrade / side-grade, please let me know if anything breaks. One
downside of now have CL-MathStats is that I lose gamma-ln which means
no Poisson distribution; I'm thinking of re-arranging things so that
it's easier to do what makes sense.
I would love to add the distributions that you mention to CL-
Variates; please do send them along!
On Oct 17, 2007, at 2:02 PM, Tamas K Papp wrote:
> Hi Gary,
>
> I found that putting
>
> (require :lift)
>
> before (require :cl-variates) solves my problem. Perhaps it is a
> dependency issue, and I didn't find any dependency on lift in
> cl-variates.asd (but maybe something else should load it so it is not
> an issue?)
>
> Since I use CL for quite a bit of numerical work, I would be very
> interested in the simplification you mention, in the long run. In the
> short run, I think I will send you extensions of cl-variates that I
> find useful. Eg things like
>
> (defun lognormal-random (generator mean standard-deviation)
> "Returns a lognormally distributed double-float pseudo random number
> with using 'mean' and 'standard-deviation'."
> (exp (normal-random generator mean standard-deviation)))
>
> and other distributions I use (I have some code for multivariate
> normal, but that needs cleaning up).
>
> Thanks,
>
> Tamas
>
>
> On Sun, Oct 14, 2007 at 02:00:10PM -0400, Gary King wrote:
>> Hi Tamas,
>>
>> I've been unable to recreate the issue you found either in Allegro
>> Common
>> Lisp or SBCL (though I'm still on version 1.0). The error message is
>> confusing because I don't see the LIFT package referenced anywhere
>> within
>> the file variates. One thing to try would be to see if (ASDF-)
>> installing
>> LIFT (my test package helps get through this).
>>
>> Also, as I was looking at CL-Variates again, I realized how little it
>> actually relies on CL-MathStats or Metatilities. I'm now intending to
>> simplify it so that using the package is easier. I don't know how
>> long it
>> will take me to realize this goal but if I know that you're
>> interested, it
>> may make me do something more quickly <smile>.
>>
>> Please let me know if you learn any more about what is causing the
>> problem
>> you're found and/or how to fix it.
>>
>> thanks,
>>
>>
>> On Oct 13, 2007, at 2:46 PM, Tamas K Papp wrote:
>>
>>> Hi Gary,
>>>
>>> When trying to load cl-variates (installed with asdf-install,
>>> everything went smoothly, using sbcl 1.0.9.0) I get the backtrace
>>>
>>> The name "LIFT" does not designate any package.
>>> [Condition of type SB-KERNEL:SIMPLE-PACKAGE-ERROR]
>>>
>>> Restarts:
>>> 0: [RETRY] Retry performing #<ASDF:LOAD-OP NIL {B4478E9}> on
>>> #<ASDF:CL-SOURCE-FILE "variates" {AA537E1}>.
>>> 1: [ACCEPT] Continue, treating #<ASDF:LOAD-OP NIL {B4478E9}> on
>>> #<ASDF:CL-SOURCE-FILE "variates" {AA537E1}> as having been
>>> successful.
>>> 2: [ABORT] Return to SLIME's top level.
>>> 3: [TERMINATE-THREAD] Terminate this thread (#<THREAD "worker"
>>> {AADF059}>)
>>>
>>> Backtrace:
>>> 0: (SB-INT:%FIND-PACKAGE-OR-LOSE "LIFT")
>>> 1: (SB-INT:FIND-UNDELETED-PACKAGE-OR-LOSE "LIFT")
>>> 2: (SB-FASL::FOP-PACKAGE)
>>> 3: (SB-FASL::LOAD-FASL-GROUP
>>> #<SB-SYS:FD-STREAM for "file
>>> /var/cache/common-lisp-controller/1000/sbcl/local/home/
>>> tpapp/.asdf-install-dir/site/cl-variates/dev/variates.fasl"
>>> {B5CEA79}>)
>>> 4: ((FLET SB-THREAD::WITH-RECURSIVE-LOCK-THUNK))
>>> 5: (SB-UNIX::CALL-WITH-LOCAL-INTERRUPTS
>>> #<CLOSURE (FLET SB-UNIX::WITH-LOCAL-INTERRUPTS-THUNK)
>>> {B73A639D}>
>>> T)
>>> 6: ((FLET SB-UNIX::WITHOUT-INTERRUPTS-THUNK) T)
>>> 7: ((FLET SB-UNIX::RUN-WITHOUT-INTERRUPTS))
>>> 8: (SB-UNIX::CALL-WITHOUT-INTERRUPTS
>>> #<CLOSURE (FLET SB-UNIX::WITHOUT-INTERRUPTS-THUNK)
>>> {B73A648D}>)
>>> 9: (SB-THREAD::CALL-WITH-RECURSIVE-LOCK
>>> #<CLOSURE (FLET SB-THREAD::WITH-RECURSIVE-LOCK-THUNK)
>>> {B73A650D}>
>>> #S(SB-THREAD:MUTEX
>>> :NAME "big compiler lock"
>>> :VALUE #<SB-THREAD:THREAD "worker" {AADF059}>))
>>> 10: (SB-FASL::LOAD-AS-FASL
>>> #<SB-SYS:FD-STREAM for "file
>>> /var/cache/common-lisp-controller/1000/sbcl/local/home/
>>> tpapp/.asdf-install-dir/site/cl-variates/dev/variates.fasl"
>>> {B5CEA79}>
>>> NIL
>>> #<unavailable argument>)
>>> 11: (SB-FASL::INTERNAL-LOAD
>>>
>>> #P"/var/cache/common-lisp-controller/1000/sbcl/local/home/
>>> tpapp/.asdf-install-dir/site/cl-variates/dev/variates.fasl"
>>>
>>> #P"/var/cache/common-lisp-controller/1000/sbcl/local/home/
>>> tpapp/.asdf-install-dir/site/cl-variates/dev/variates.fasl"
>>> :ERROR
>>> NIL
>>> NIL
>>> :BINARY
>>> NIL)
>>> 12: (SB-FASL::INTERNAL-LOAD
>>>
>>> #P"/var/cache/common-lisp-controller/1000/sbcl/local/home/
>>> tpapp/.asdf-install-dir/site/cl-variates/dev/variates.fasl"
>>>
>>> #P"/var/cache/common-lisp-controller/1000/sbcl/local/home/
>>> tpapp/.asdf-install-dir/site/cl-variates/dev/variates.fasl"
>>> :ERROR
>>> NIL
>>> NIL
>>> NIL
>>> :DEFAULT)
>>> 13: (LOAD
>>>
>>> #P"/var/cache/common-lisp-controller/1000/sbcl/local/home/
>>> tpapp/.asdf-install-dir/site/cl-variates/dev/variates.fasl")
>>> 14: ((SB-PCL::FAST-METHOD ASDF:PERFORM
>>> (ASDF:LOAD-OP ASDF:CL-SOURCE-FILE))
>>> #<unavailable argument>
>>> #<unavailable argument>
>>> #<ASDF:LOAD-OP NIL {B4478E9}>
>>> #<ASDF:CL-SOURCE-FILE "variates" {AA537E1}>)
>>> 15: ((LAMBDA
>>> (SB-PCL::.PV-CELL. SB-PCL::.NEXT-METHOD-CALL. SB-
>>> PCL::.ARG0.
>>> SB-PCL::.ARG1.))
>>> #<unavailable argument>
>>> #<unavailable argument>
>>> #<ASDF:LOAD-OP NIL {B4478E9}>
>>> #<ASDF:CL-SOURCE-FILE "variates" {AA537E1}>)
>>> 16: ((LAMBDA ()))
>>> 17: ((FLET SB-THREAD::WITH-RECURSIVE-LOCK-THUNK))
>>> 18: (SB-UNIX::CALL-WITH-LOCAL-INTERRUPTS
>>> #<CLOSURE (FLET SB-UNIX::WITH-LOCAL-INTERRUPTS-THUNK)
>>> {B73A68FD}>
>>> T)
>>> 19: ((FLET SB-UNIX::WITHOUT-INTERRUPTS-THUNK) T)
>>> 20: ((FLET SB-UNIX::RUN-WITHOUT-INTERRUPTS))
>>> 21: (SB-UNIX::CALL-WITHOUT-INTERRUPTS
>>> #<CLOSURE (FLET SB-UNIX::WITHOUT-INTERRUPTS-THUNK)
>>> {B73A69ED}>)
>>> 22: (SB-THREAD::CALL-WITH-RECURSIVE-LOCK
>>> #<CLOSURE (FLET SB-THREAD::WITH-RECURSIVE-LOCK-THUNK)
>>> {B73A6A6D}>
>>> #S(SB-THREAD:MUTEX
>>> :NAME "big compiler lock"
>>> :VALUE #<SB-THREAD:THREAD "worker" {AADF059}>))
>>> 23: (SB-C::%WITH-COMPILATION-UNIT #<CLOSURE (LAMBDA #) {B9F164D}>)
>>> 24: (ASDF:OPERATE ASDF:LOAD-OP :CL-VARIATES)
>>> 25: (ASDF::MODULE-PROVIDE-ASDF :CL-VARIATES)
>>> 26: ((LAMBDA (#:G[REQUIRE]18)) ASDF::MODULE-PROVIDE-ASDF)
>>> 27: (SB-IMPL::%MAP-FOR-EFFECT-ARITY-1
>>> #<CLOSURE (LAMBDA #) {AAADE05}>
>>> (ASDF::MODULE-PROVIDE-ASDF SB-IMPL::MODULE-PROVIDE-CONTRIB))
>>> 28: (REQUIRE :CL-VARIATES NIL)
>>> 29: (SB-INT:SIMPLE-EVAL-IN-LEXENV (REQUIRE :CL-VARIATES) #<NULL-
>>> LEXENV>)
>>> 30: ((LAMBDA ()))
>>> 31: ((LAMBDA (SWANK-BACKEND::FN)) #<CLOSURE (LAMBDA #) {AAAD995}>)
>>> 32: (SWANK::CALL-WITH-BUFFER-SYNTAX #<CLOSURE (LAMBDA #)
>>> {AAAD995}>)
>>> 33: (SB-INT:SIMPLE-EVAL-IN-LEXENV
>>> (SWANK:INTERACTIVE-EVAL "(require :cl-variates)")
>>> #<NULL-LEXENV>)
>>> 34: ((LAMBDA ()))
>>> 35: ((LAMBDA (SWANK-BACKEND::HOOK SWANK-BACKEND::FUN))
>>> #<FUNCTION SWANK:SWANK-DEBUGGER-HOOK>
>>> #<CLOSURE (LAMBDA #) {AAAD2BD}>)
>>> 36: ((LAMBDA ()))
>>> 37: ((LAMBDA (SWANK-BACKEND::HOOK SWANK-BACKEND::FUN))
>>> #<FUNCTION SWANK:SWANK-DEBUGGER-HOOK>
>>> #<FUNCTION (LAMBDA #) {A8B396D}>)
>>> 38: (SWANK::CALL-WITH-REDIRECTED-IO
>>> #<SWANK::CONNECTION {ACAFEB1}>
>>> #<CLOSURE (LAMBDA #) {AAAD20D}>)
>>> 39: (SWANK::CALL-WITH-CONNECTION
>>> #<SWANK::CONNECTION {ACAFEB1}>
>>> #<FUNCTION (LAMBDA #) {A8B396D}>)
>>> 40: (SWANK::HANDLE-REQUEST #<SWANK::CONNECTION {ACAFEB1}>)
>>> 41: (SWANK::CALL-WITH-BINDINGS NIL #<CLOSURE (LAMBDA #) {AAAD1ED}>)
>>> 42: ((FLET SB-THREAD::WITH-MUTEX-THUNK))
>>> 43: (SB-UNIX::CALL-WITH-LOCAL-INTERRUPTS
>>> #<CLOSURE (FLET SB-UNIX::WITH-LOCAL-INTERRUPTS-THUNK)
>>> {B73A709D}>
>>> T)
>>> 44: ((FLET SB-UNIX::WITHOUT-INTERRUPTS-THUNK) T)
>>> 45: ((FLET SB-UNIX::RUN-WITHOUT-INTERRUPTS))
>>> 46: (SB-UNIX::CALL-WITHOUT-INTERRUPTS
>>> #<CLOSURE (FLET SB-UNIX::WITHOUT-INTERRUPTS-THUNK)
>>> {B73A718D}>)
>>> 47: (SB-THREAD::CALL-WITH-MUTEX
>>> #<CLOSURE (FLET SB-THREAD::WITH-MUTEX-THUNK) {B73A7215}>
>>> #S(SB-THREAD:MUTEX
>>> :NAME "thread result lock"
>>> :VALUE #<SB-THREAD:THREAD "worker" {AADF059}>)
>>> #<SB-THREAD:THREAD "worker" {AADF059}>
>>> T)
>>> 48: ((LAMBDA ()))
>>> 49: ("foreign function: #x8063B4C")
>>> 50: ("foreign function: #x8051DE1")
>>> 51: ("foreign function: #x805B69D")
>>> 52: ("foreign function: #xB7FB22D3")
>>
>> --
>> Gary Warren King, metabang.com
>> Cell: (413) 559 8738
>> Fax: (206) 338-4052
>> gwkkwg on Skype * garethsan on AIM
>>
>>
>>
>>
--
Gary Warren King, metabang.com
Cell: (413) 559 8738
Fax: (206) 338-4052
gwkkwg on Skype * garethsan on AIM
