Custom Query (1030 matches)

hi i tend to prefer ccl over other cl implementations. but, when i decided to use it as a web application programing tool recently on a lisp-based http server,like cl-http or hunchentooth, i discovered these http servers does not support ccl, many implementations have ports but ccl not. i am a macintosh and debian user.

Use case:

(setf *print-circle* t)
(format nil "~{~A ~:*~A, ~}" '("77" "88"))
=> "#1=77 #1#, #2=88 #2#, "

Expected value

=> "77 77, 88 88, "

(defun f () (setf (symbol-function 'f) (lambda () 1)) (f))

Such a function will cause an infinite loop when it is call at first time but when interupting and calling (f) again, it has been modified to (lambda () 1) I have tried several CL implementation and they all behave correctly, they return 1 and do not cause an infinite loop.