[Bese-devel] openmcl support

[Marco Baringer]

UCW's new backtrace stuff triggers a bug in openmcl, you'll need to
add put this to your .openmcl-init or whatever file:

(let ((ccl::*warn-if-redefine-kernel* nil))
  (defun write-a-cons (cons stream level)
    (declare (type cons cons) (type stream stream) (type fixnum level))
    (let ((print-length (get-*print-frob* '*print-length*))
          (level-1 (%i- level 1))
          (head (%car cons))
          (tail (%cdr cons)))
      (declare (type fixnum print-length) (type fixnum level-1))
      (unless (and *print-abbreviate-quote*
                   (write-abbreviate-quote head tail stream level-1))
        (progn
          (pp-start-block stream #\()
          (if (= print-length 0)
              (%write-string "..." stream)
              (progn
                (write-internal stream head level-1 nil)
                (write-internal stream tail level-1
                                (if (atom tail)
                                    print-length
                                    (%i- print-length 1)))))
          (pp-end-block stream #\)))))))

0.14.4 sholud fix this. 

-- 
-Marco
Ring the bells that still can ring.
Forget the perfect offering.
There is a crack in everything.
That's how the light gets in.
	-Leonard Cohen