/[cmucl]/src/pcl/std-class.lisp
ViewVC logotype

Diff of /src/pcl/std-class.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.8.1.4 by ram, Thu Mar 10 17:59:25 1994 UTC revision 1.8.1.5 by ram, Thu Mar 17 15:14:46 1994 UTC
# Line 1086  Line 1086 
1086  ;;; happening when they should, and that the trap methods are computing  ;;; happening when they should, and that the trap methods are computing
1087  ;;; apropriate new wrappers.  ;;; apropriate new wrappers.
1088  ;;;  ;;;
1089  (defun obsolete-instance-trap (owrapper nwrapper instance)  (defun obsolete-instance-trap (owrapper nwrapper instance)
1090      #+cmu17
1091      (unless (pcl-instance-p instance) (return-from obsolete-instance-trap nil))
1092    ;;    ;;
1093    ;; local  --> local        transfer    ;; local  --> local        transfer
1094    ;; local  --> shared       discard    ;; local  --> shared       discard

Legend:
Removed from v.1.8.1.4  
changed lines
  Added in v.1.8.1.5

  ViewVC Help
Powered by ViewVC 1.1.5