> (setf *print-circle* t) ladies and gentleman...
CL-USER> (defvar *prova* (list 1 2)) *PROVA* CL-USER> (setf *print-circle* t) T CL-USER> (setf (cdr (cdr *prova*)) *prova*) #1=(1 2 . #1#) CL-USER> (first *prova*) 1 CL-USER> (second *prova*) 2 CL-USER> (third *prova*) 1 CL-USER> wow... amazing and now try this... CL-USER> (mapcar (lambda(x) (+ 1 x)) *prova*) swap power!!!!! :) bye Francesco PS I know you already knew this behavior, but for me it is a funny surprise!!!! -- Linux Registered User: #414858 P Funking Band http://www.perugiafunkingband.it http://www.myspace.com/perugiafunkingband _______________________________________________ Gardeners mailing list [email protected] http://www.lispniks.com/mailman/listinfo/gardeners
