freenode/#lisp - IRC Chatlog
Search
14:56:35
shrdlu68
"Quick test: if you create a new namespace and import another file within that namespace, do its contents end up in that namespace?"
15:04:04
dlowe
and packages aren't hierarchical in CL, so importing another file "within" that namespace doesn't make any sense
15:21:58
pjb
shrdlu68: if your file contains (cl:defun cl-user::foo (cl-user::x) (cl:+ cl-user::x 42)) and assuming no foul play with the *readtable*, then you can set the *package* to any package, loading the file will always read the same sexps!
15:22:40
pjb
shrdlu68: Similarly, as soon as the file contains a toplevel in-package form, it controls the package in which the following unqualified symbols are interned.
15:23:26
pjb
dlowe: usually, people write (in-package "BAR"). But if FOO::IN-PACKAGE is not CL:IN-PACKAGE, (in-package "BAR") can have different effects.
15:49:16
slightlycyborg
Hi. I have x predicate calls. What is the best way to sum up the number of predicates evaluated as true?
15:53:44
dlowe
I was trying to think of a way that didn't involve a temp list, but I didn't think of anything without macrology
15:55:44
loke
slightlycyborg: If every comparison uses the _same_ pred, you want to do: (count-if #'pred LIST-OF-VALUES)
15:57:16
slightlycyborg
Ya, the #'identity raised an interupt in my mind and I saw that pattern. I am not using the same pred for this instance though.
15:58:31
dlowe
If every comparison uses the same value and different preds, (count-if (lambda (p) (funcall p value)) LIST-OF-PREDICATES)
15:59:05
dlowe
(defmacro prog-count-if (&body forms) (let ((counter-sym (gensym "COUNTER"))) `(let ((,counter-sym 0)) ,@(mapcar (lambda (f) `(when ,form (incf ,counter-sym))) forms) ,counter-sym)))
16:01:36
dlowe
(tagbody 5 (defvar count 0) 10 (if (not (pred x)) (go 30)) 20 (incf count) 30 (format t "I am so cool. count=~a~%" count))
16:02:18
Xach
slightlycyborg: this steady drip-drip-drip of new info is excellent for stretching out the discussion and exploration of solutions!
18:29:52
fiddlerwoaroof
(length (flatten (mapcar (lambda (f v) (if (funcall f v) (1) ())) functions values)))
18:37:41
_death
jackdaniel: heh.. at first I was puzzled.. TRON operator? then I recalled TRON/TROFF...
20:53:30
aeth
LdBeth: If what you said was valid then it would constantly be setting a to 1 and then a to 2 every iteration of the loop. It doesn't seem to be valid in SBCL, it says "duplicated variable". verisimilitude has the answer.
20:53:44
verisimilitude
In any case, you should be using the integer stepping clauses for this, instead.
20:54:51
aeth
(loop :repeat 5 :for a := 1 :then (1+ a) :do (format t "~A~%" a)) is equivalent to (loop :repeat 5 :for a :from 1 :do (format t "~A~%" a))
20:55:11
aeth
The advantage of the second form is that you can add a terminating condition right in it instead of writing your own elsewhere.
20:56:03
LdBeth
well, Emacs' cl-loop don't signal an error on duplicated variable and just complains "unused variable a" when byte-compiled though
20:56:10
aeth
You can also count 0-based and by steps greater than 2. (loop :for a :from 0 :below 10 :by 2 :do (format t "~A~%" a))
20:57:39
aeth
LdBeth: The way I would have interpreted it if it was valid would be to have a set to 1 and then incremented by 1, so both a's would be used, sort of like (let* ((a 1) (a (1+ a))) a)
21:23:04
fiddlerwoaroof
it has most of the features of CL's generic functions, but adds &context arguments and a couple additional kinds of specializers
21:23:34
fiddlerwoaroof
the &context arguments let you dispatch based on things like the currently active mode, etc.
0:43:31
slightlycyborg
I am trying to get asdf to load a system that I placed in ~/common-lisp. I load quicklisp on sbcl boot. I am getting "component <system_name> not found" after (asdf:load-system "<system_name>")
0:46:31
slightlycyborg
I think I found the error. I named my file <system>.asdf instead of <system>.asd