/[mcclim]/mcclim/recording.lisp
ViewVC logotype

Diff of /mcclim/recording.lisp

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

revision 1.64 by moore, Wed Apr 2 07:48:59 2003 UTC revision 1.65 by mikemac, Thu Apr 3 14:41:42 2003 UTC
# Line 1516  were added." Line 1516  were added."
1516           (eql (length (slot-value record 'strings)) (length strings));XXX           (eql (length (slot-value record 'strings)) (length strings));XXX
1517           (loop for s1 in (slot-value record 'strings)           (loop for s1 in (slot-value record 'strings)
1518                 for s2 in strings                 for s2 in strings
1519                 always (output-record-equal s1 s2))))))                 always (output-record-equal s1 s2)))))
1520    
1521  (defmethod print-object ((self standard-text-displayed-output-record) stream)  (defmethod print-object ((self standard-text-displayed-output-record) stream)
1522    (print-unreadable-object (self stream :type t :identity t)    (print-unreadable-object (self stream :type t :identity t)

Legend:
Removed from v.1.64  
changed lines
  Added in v.1.65

  ViewVC Help
Powered by ViewVC 1.1.5