prof. christoph lischka

I've just installed syntax highlighting (vide: GeSHi); fiddling with the css-template yields something like the following:

(defun deconstruct (list number)
  (when (zerop (rem (length list) number))
    (let ((result nil))
      (labels
          ((scan (l)
             (when (null l) (return-from scan))
             (push (last l number) result)
             (scan (butlast l number))))
        (scan list))
      (return-from deconstruct result)))
  (format nil "Can't deconstruct your list '~A by number ~A" list number))