;;; -*- Mode:Common-Lisp; Package:SYSTEM; Base:10; Fonts:(CPTFONT HL10B HL12BI HL12B CPTFONTB); Patch-File:T -*-

;Ï1;;                     RESTRICTED RIGHTS LEGEND          Ï*
;Ï1;; Use, duplication, or disclosure by the Government is subject toÏ*
;Ï1;; restrictions as set forth in subdivision (b)(3)(ii) of the Rights inÏ*
;Ï1;; Technical Data and Computer Software clause at 52.227-7013.Ï*
;Ï1;;                   TEXAS INSTRUMENTS INCORPORATED.Ï*
;Ï1;;                            P.O. BOX 149149Ï*
;Ï1;;                         AUSTIN, TEXAS 78714-9149Ï*
;Ï1;;                             MS 2151Ï*
;Ï1;; Copyright (C) 1986,1987, 1988, 1989 Texas Instruments Incorporated. All rights reserved.Ï*


;Ï1; This is a close try for LETF. (RDA)Ï*
(defmacro Ï4letfÏ* (varlist &rest body)
  "Ï2This is like let but uses the BIND primitive.Ï*"
  `(let ((.values.))				;
     ,@(nreverse (loop for (var val) in varlist collect `(push ,val .values.)))
     ,@(loop for (var val) in varlist
	     collecting `(bind (locf ,var) (pop .values.)))
     . ,body))

(export 'letf "Ï3TICLÏ*")

;Ï1------- other miscellaneous functions from 36XX-EXPLORER -------Ï*

(defun Ï4Operation-Handled-pÏ* (an-object message)
  "Ï2Send an :OPERATION-HANDLED-P MESSAGE message to AN-OBJECTÏ*"
   (Send an-object :Operation-Handled-p message))

(export 'operation-handled-p "Ï3TICLÏ*")
(export 'operation-handled-p "Ï3GLOBALÏ*")

(defun Ï4boundp-in-instanceÏ* (instance variable)
  "Ï2True iff VARIABLE is bound in the INSTANCE.Ï*"
  (location-boundp (locate-in-instance instance variable)))

(export 'boundp-in-instance "Ï3TICLÏ*")
