Custom Query (1030 matches)

The garbage collector removes some interned symbols:

Welcome to Clozure Common Lisp Version 1.9-dev-r15418M-trunk  (LinuxX8632)!
? (progn (intern "FOO") (ccl:gc) (find-symbol "FOO"))
NIL
NIL
? 

Is this supposed to happen?

(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.

I'm trying to define a setf expander that itself is a macro which uses other macros. This does not work:

(in-package :cl-user)

(defvar *foo* 0)

(defmacro foo () '*foo*) (defmacro set-foo (new) `(setf *foo* ,new))

(defmacro set-bar (new)

(set-foo new))

(defsetf foo set-bar)

(incf (foo))

; The error is ; value #:G25 is not of the expected type NUMBER. ; The expansion of the (incf (foo)) form is ; (LET* ((#:G1 1) (#:G0 (+ (FOO) #:G1))) (SET-BAR #:G0))