From: Vladimir Zolotykh
Subject: More readable macroexpand-1 output
Date: Sat, 11 May 2002 14:56:15 +0000
Message-ID: <3CDD310F.B19E9D77@eurocom.od.ua>

I see this

(dolist (#:g30 (sql "foo"))
  (let ((#:g29 (or # #)))
    (multiple-value-bind (#:g31 #:g32)
        (gethash (first #:g30) *marks*)
      (if #:g32 (setf # #:g29) (setf # #)))))

after macroexpand-1 in ACL 6.1. I'd like to see something
more informative instead of #. Is it possible ?

Here is the macro itself

(defmacro do-marks (query accessor initarg)
  (let ((ut (gensym))
	(x (gensym))
	(mark (gensym))
	(present-p (gensym)))
    `(dolist (,x (dbi:sql ,query))
       (let ((,ut (or (second ,x) (parse-time:parse-time (second ,x)))))
	 (multiple-value-bind (,mark ,present-p) (gethash (first ,x) 
							  *marks*)
	   (if ,present-p
	       (setf (,accessor ,mark) ,ut)
	     (setf (gethash (first ,x) *marks*)
	       (make-mark ,initarg ,ut))))))))

-- 
Vladimir Zolotykh

• Re: More readable macroexpand-1 output Geoffrey Summerhayes
  • Re: More readable macroexpand-1 output Vladimir Zolotykh

From: Geoffrey Summerhayes
Subject: Re: More readable macroexpand-1 output
Date: Sat, 11 May 2002 15:46:46 +0000
Message-ID: <K1bD8.9934$J46.2040007@news20.bellglobal.com>

"Vladimir Zolotykh" <······@eurocom.od.ua> wrote in message
······················@eurocom.od.ua...
> I see this
>
> (dolist (#:g30 (sql "foo"))
>   (let ((#:g29 (or # #)))
>     (multiple-value-bind (#:g31 #:g32)
>         (gethash (first #:g30) *marks*)
>       (if #:g32 (setf # #:g29) (setf # #)))))
>
> after macroexpand-1 in ACL 6.1. I'd like to see something
> more informative instead of #. Is it possible ?
>

I use:

(pprint (macroexpand-1 ...))

then the *print-...* variables have effect.

----------
Geoff

From: Vladimir Zolotykh
Subject: Re: More readable macroexpand-1 output
Date: Sun, 12 May 2002 12:46:44 +0000
Message-ID: <3CDE6434.864CC671@eurocom.od.ua>

Geoffrey Summerhayes wrote:
> (pprint (macroexpand-1 ...))

I must apologize! How I can forget that...

-- 
Vladimir Zolotykh