clisp

It is very easy to change CLisp's current working directory: >cat ~/.clisprc.lisp ;;; The following lines added by ql:add-to-init-file: #-quicklisp (let ((quicklisp-init (merge-pathnames "quicklisp/setup.lisp" (user-homedir-pathname)))) (when (probe-file quicklisp-init) (load quicklisp-init))) (cd "/media/E/www/qachina/db/doc/money") (load "money") However, it seems there is no cd similar function in SBCL. How can this be done with SBCL? CL-USER> (sb-posix:chdir "/home/apugachev") 0 CL-USER> (sb-posix:getcwd) "/home/apugachev" CL-USER> (sb-posix:chdir "/tmp/") 0 CL-USER> (sb-posix:getcwd) "

How to to configure apache + mod_lisp + clisp and set up a "Hello World!"? I couldn't find any complete howto on the subject. Thanks. Edit: Vebjorn's solution works, but then I don't how to code the "hello world!". Can anyone tell me how to proceed? There's something like SWANKing the clisp, then connect to it with SLIME, but then when I launch mod_lisp's demo, the test page is not served and my slime doesn't return? Thanks again. Download http://www.fractalconcept.com:8000/public/open-source/mod_lisp/mod_lisp.c Compile and install Apache module with sudo apxs -i -c mod_lisp.c Add the

Okay, so I am new to lisp and i have been working on this program for a couple days getting to know lisp and researching certain parts of lisp such as cons,cdr, let,funcall and some other ones. I am trying to create a candy machine that dispense colors randomly. I have ran this code numerous times and at first it took me a while to stop getting errors for the random function and now it is saying i have too few arguments for the cons in generate-candy-supply. Any one have any suggestions on where to go and any solution to this? so far my code is... (defvar candy-color '(yellow red blue green

I'm learning Lisp from the book 'Practical Common Lisp'. At one point, I'm supposed to enter the following bit of code: [1] (remove-if-not #'evenp '(1 2 3 4 5 6 7 8 9 10)) (2 4 6 8 10) I suppose the idea here is of course that remove-if-not wants a function that can return either T or NIL when an argument is provided to it, and this function is then applied to all symbols in the list, returning a list containing only those symbols where it returned NIL. However, if I now write the following code in CLISP: [2] (remove-if-not 'evenp '(1 2 3 4 5 6 7 8 9 10) (2 4 6 8 10) It still works! So my

CLISP Version: 2.49 Leaf Node (value (NIL) (NIL)) Non-Leaf Node (value (value (NIL) (NIL)) (NIL)) Code ("format" for debug only) ; (nil) means NULL (defun binary-insert (root obj <) (if (null (cdr root)) (progn (format t "In Null [~A] => " root) (setf (car root) obj) (format t "mid [~A] => " root) (setf (cdr root) '((nil) (nil))) (format t "[~A]~%" root)) (if (funcall < obj (car root)) (progn (format t "In Left [~A] => " root) (binary-insert (nth 1 root) obj <) (format t "[~A]~%" root)) ; Left (progn (format t "In Right [~A] => " root) (binary-insert (nth 2 root) obj <) (format t "[~A]~%" root