/[cmucl]/src/hemlock/struct.lisp
ViewVC logotype

Diff of /src/hemlock/struct.lisp

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

revision 1.1 by ram, Wed May 9 13:06:24 1990 UTC revision 1.1.1.1 by ram, Sun Jun 17 12:23:43 1990 UTC
# Line 57  Line 57 
57    font)    font)
58    
59  (defmacro fast-font-mark-p (s)  (defmacro fast-font-mark-p (s)
60    `(eq (svref ,s 0) 'font-mark))    `(typep ,s 'font-mark))
   
61    
62    
63  ;;;; Regions, buffers, modeline fields.  ;;;; Regions, buffers, modeline fields.

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.1.1.1

  ViewVC Help
Powered by ViewVC 1.1.5