home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / mac / developm / source / oodleutl.cpt / oodles-of-utils / patches / patches.lisp < prev   
Encoding:
Text File  |  1992-05-05  |  514 b   |  31 lines
  1. (in-package :ccl)
  2. ;;;;;;;;;;
  3. ;;various patches that will eventually be standard
  4.  
  5. (export '(hset pset
  6.           ))
  7.  
  8. ;;;;;;;;;;
  9.  
  10. (eval-when (:compile-toplevel :load-toplevel :execute)
  11.  
  12.   (defmacro hset (pointer accessor thing)
  13.     `(rset ,pointer ,accessor ,thing :storage :handle))
  14.   
  15.   (defmacro pset (pointer accessor thing)
  16.     `(rset ,pointer ,accessor ,thing :storage :pointer))
  17.  
  18.   )
  19.  
  20. ;;;;;;;;;;
  21.  
  22. (load "oou-patches:focus-view-patch")
  23. (load "oou-patches:call-with-focus-view-patch")
  24.  
  25. ;;;;;;;;;;
  26.  
  27. ;;;;;;;;;;
  28.  
  29.  
  30.  
  31.