23 Jan 2001 pvaneynd   » (Master)

I it legal to reply to a Scheme problem with a Common Lisp reply?

So here goes:

(defun f (string)
 (lambda (nil-or-closure)
   ;; a closure
  (if (null nil-or-closure)
      ;; we are asked to give the string:
      string
    ;; we are the caller, get the string
    ;; of the other closure:
    (let ((other-string (funcall nil-or-closure nil)))
      ;; print it out:
      (loop for a across string
            for b across other-string
           do
            (format t "~A~A" a b)))))
[5]> (funcall (f "Js nte ceeWnae")(f "utAohrShm anbe"))
Just Another Scheme Wannabee         

In related news, common-lisp-controller is almost ready for prime-time. It's amazing how many failuremodes one can dream up for a package manager...

Latest blog entries     Older blog entries

New Advogato Features

New HTML Parser: The long-awaited libxml2 based HTML parser code is live. It needs further work but already handles most markup better than the original parser.

Keep up with the latest Advogato features by reading the Advogato status blog.

If you're a C programmer with some spare time, take a look at the mod_virgule project page and help us with one of the tasks on the ToDo list!