anchor.diff:    (let ((location (foreign-location instance))
   	(type-number (type-number-of instance)))
       #'(lambda ()
  -	(remove-cached-instance location)
   	(%boxed-free type-number location))))
   
   
  
positive.code:     (subtypep (class-name super) 'boxed)))
  
  
  (defmethod shared-initialize ((class boxed-class) names &key name gtype)
    (declare (ignore names))
    (call-next-method)
    (let ((class-name (or name (class-name class))))
      (unless (find-type-number class-name)
        (register-type class-name 
         (or (first gtype) (default-type-init-name class-name))))))
  
  (defbinding %boxed-copy () pointer
    (type-number type-number)
    (location pointer))
  
negative.code: ;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
  ;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
  
  ;; $Id: gboxed.lisp,v 1.21 2006-04-25 21:55:42 espen Exp $
  
  (in-package "GLIB")
  
  