[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[James Rice <Rice@SUMEX-AIM.Stanford.EDU>: Re: Compiler-Let]



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