home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #18 / NN_1992_18.iso / spool / comp / lang / lisp / mcl / 1294 < prev    next >
Encoding:
Internet Message Format  |  1992-08-21  |  2.1 KB
  1. Path: sparky!uunet!zaphod.mps.ohio-state.edu!usc!elroy.jpl.nasa.gov!ames!data.nas.nasa.gov!taligent!apple!cambridge.apple.com!cornell@freya.cs.umass.edu
  2. From: cornell@freya.cs.umass.edu
  3. Newsgroups: comp.lang.lisp.mcl
  4. Subject: Bug re-compiling traced methods with keywords
  5. Message-ID: <9208212001.AA26740@giane.cs.umass.edu>
  6. Date: 21 Aug 92 20:01:25 GMT
  7. Sender: info-mcl-request@cambridge.apple.com
  8. Lines: 51
  9. Approved: comp.lang.lisp.mcl@Cambridge.Apple.C0M
  10. Original-To: bug-mcl@cambridge.apple.com
  11. Original-Cc: info-mcl@cambridge.apple.com
  12.  
  13. Enclosed is two files, bug-trace.text (a Listener trace) and bug.lisp.
  14. The compiler warnings are not relevant to this bug. I hope I'm not
  15. missing something (e.g. following behavior is OK).
  16.  
  17. matt
  18.  
  19.  
  20. ==== Start bug-trace.text ====
  21. Welcome to Macintosh Common Lisp Version 2.0p1!
  22. ? ;; Eval buffer bug.lisp
  23. #<STANDARD-CLASS OBJECT2>
  24. #<STANDARD-CLASS CHANGE2>
  25. ;Compiler warnings :
  26. ;   Unused lexical variable F-INITIAL-CHANGE2, in NOTE-CHANGE2.
  27. #<STANDARD-METHOD NOTE-CHANGE2 :AROUND (OBJECT2 CHANGE2)>
  28. ;Compiler warnings :
  29. ;   Unused lexical variable F-INITIAL-CHANGE2, in NOTE-CHANGE2.
  30. #<STANDARD-METHOD NOTE-CHANGE2 (OBJECT2 CHANGE2)>
  31. ;Compiler warnings :
  32. ;   Undeclared free variable INDEXED-INSTANCE-LINKED-IN, in PROPAGATE-CHANGE2.
  33. #<STANDARD-METHOD PROPAGATE-CHANGE2 (OBJECT2 CHANGE2)>
  34. NIL
  35. ? ;; Re-eval def of propagate-change2
  36. > Error: Can't take CAR of #<Compiled-function CCL::%%NTH-ARG-DCODE #x39274E>.
  37. > While executing: CCL::LIST-POSITION/FIND-SIMPLE
  38. > Type Command-. to abort.
  39. See the RestartsI menu item for further choices.
  40. 1 > 
  41. ==== End bug-trace.text ====
  42.  
  43. ==== Start bug.lisp ====
  44. (defclass object2 ()())
  45. (defclass change2 ()())
  46.  
  47.  
  48. (defmethod note-change2 :around ((object2-notified object2) (change2 change2)
  49.                                 &key (f-initial-change2 t))
  50.   )
  51.  
  52.  
  53. (defmethod note-change2 ((object2-notified object2) (change2 change2)
  54.                         &key (f-initial-change2 t))
  55.   )
  56.  
  57.  
  58. (defmethod propagate-change2 ((object2-notified object2) (change2 change2))
  59.   (note-change2 indexed-instance-linked-in change2 :f-initial-change2 nil))
  60.  
  61.  
  62. (trace note-change2)
  63. ==== End bug.lisp ====
  64.