(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