return-from in (defun (setf xxx)...)?

This works in ACL and LispWorks:

(defun (setf md-slot-value) (newvalue self slot-spec)
   <snip>
  (when (c-setting-p c)
       (return-from md-slot-value newvalue))

... but not in CormanLisp:

;;; An error occurred in function %STRINGNODE:
;;; Error: No enclosing block named MD-SLOT-VALUE was found
;;; Entering Corman Lisp debug loop.

I'll rewrite to avoid the return-from, but... bug? feature?

-- 

  kenny tilton
  clinisys, inc
  http://www.tilton-technology.com/
  ---------------------------------------------------------------
"Cells let us walk, talk, think, make love and realize
  the bath water is cold." -- Lorraine Lee Cudmore



------------------------ Yahoo! Groups Sponsor ---------------------~-->
Get 128 Bit SSL Encryption!
http://us.click.yahoo.com/xaxhjB/hdqFAA/xGHJAA/SyjtlB/TM
---------------------------------------------------------------------~->

To unsubscribe from this group, send an email to:
[email protected]

 

Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/