[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[James Rice <Rice@SUMEX-AIM.Stanford.EDU>: Re: Compiler-Let]
- To: sandra%defun@cs.utah.edu
- Subject: [James Rice <Rice@SUMEX-AIM.Stanford.EDU>: Re: Compiler-Let]
- From: Eric Benson <eb@lucid.com>
- Date: Mon, 26 Sep 88 13:55:20 pdt
- Cc: cl-compiler@sail.stanford.edu, Rice@SUMEX-AIM.Stanford.EDU
- In-reply-to: Sandra J Loosemore's message of Mon, 26 Sep 88 14:27:16 MDT <8809262027.AA05417@defun.utah.edu>
From: sandra%defun@cs.utah.edu (Sandra J Loosemore)
Date: Mon, 26 Sep 88 14:27:16 MDT
(Defsubst dbg ()
;;; Make dbg like it is on Symbolics.
(compiler-let ((*dummy-I-don't-really-use-this*
(compiler:warn .....)))
(cerror "Proceed from breakpoint" "Debugger breakpoint")))
Notice this is trivially converted from COMPILER-LET to MACROLET as
follows:
(Defsubst dbg ()
;;; Make dbg like it is on Symbolics.
(macrolet ((not-used ()
(compiler:warn .....)))
(not-used)
(cerror "Proceed from breakpoint" "Debugger breakpoint")))
(Ignoring the fact that DEFSUBST and COMPILER:WARN aren't Common Lisp.)