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

Diff of /src/hemlock/syntax.lisp

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

revision 1.1.1.4 by ram, Fri Feb 8 16:38:20 1991 UTC revision 1.4 by pw, Tue Mar 13 15:49:59 2001 UTC
# Line 3  Line 3 
3  ;;; **********************************************************************  ;;; **********************************************************************
4  ;;; This code was written as part of the CMU Common Lisp project at  ;;; This code was written as part of the CMU Common Lisp project at
5  ;;; Carnegie Mellon University, and has been placed in the public domain.  ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;; If you want to use this code or any part of CMU Common Lisp, please contact  
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.  
6  ;;;  ;;;
7  (ext:file-comment  (ext:file-comment
8    "$Header$")    "$Header$")
# Line 72  Line 70 
70  (defvar *value-of-last-character-attribute-requested* nil  (defvar *value-of-last-character-attribute-requested* nil
71    "The value of the most recent character attribute, Do Not Bind.")    "The value of the most recent character attribute, Do Not Bind.")
72    
73  (proclaim '(special *character-attribute-names*))  (declaim (special *character-attribute-names*))
74    
75    
76  ;;; Each bucket contains a list of character-attribute-bucket-size  ;;; Each bucket contains a list of character-attribute-bucket-size
# Line 253  Line 251 
251    (with-attribute attribute    (with-attribute attribute
252      (setf (attribute-descriptor-hooks obj) new-value)))      (setf (attribute-descriptor-hooks obj) new-value)))
253    
254  (proclaim '(special *last-character-attribute-requested*  (declaim (special *last-character-attribute-requested*
255                      *value-of-last-character-attribute-requested*))                      *value-of-last-character-attribute-requested*))
256    
257  ;;; CHARACTER-ATTRIBUTE  --  Public  ;;; CHARACTER-ATTRIBUTE  --  Public
258  ;;;  ;;;
259  ;;;    Return the value of a character attribute for some character.  ;;;    Return the value of a character attribute for some character.
260  ;;;  ;;;
261  (proclaim '(inline character-attribute))  (declaim (inline character-attribute))
262  (defun character-attribute (attribute character)  (defun character-attribute (attribute character)
263    "Return the value of the the character-attribute Attribute for Character.    "Return the value of the the character-attribute Attribute for Character.
264    If Character is Nil then return the end-value."    If Character is Nil then return the end-value."
# Line 370  Line 368 
368    
369    
370    
371  (proclaim '(special *mode-names* *current-buffer*))  (declaim (special *mode-names* *current-buffer*))
372    
373  ;;; SHADOW-ATTRIBUTE  --  Public  ;;; SHADOW-ATTRIBUTE  --  Public
374  ;;;  ;;;

Legend:
Removed from v.1.1.1.4  
changed lines
  Added in v.1.4

  ViewVC Help
Powered by ViewVC 1.1.5