[Ecls-list] symbol-macro usage

[Tobias C. Rittweiler]

Marko Kocić writes:

> I'm trying to port hunchentoot to ecl, and I encountered this code in
> file specials.lisp in latest hunchentoot that fails to compile with
> ecl:
>
> (define-symbol-macro *supports-threads-p*
>   #+:lispworks t
>   #-:lispworks bt:*supports-threads-p*)
>
> (defvar *global-session-db-lock*
>   (load-time-value (and *supports-threads-p* (make-lock
> "global-session-db-lock")))
>   "A global lock to prevent two threads from modifying *session-db* at
> the same time \(or NIL for Lisps which don't have threads).")

Are these two forms in the same file?

  -T.