Changeset 6199


Ignore:
Timestamp:
Apr 8, 2007, 4:29:49 AM (12 years ago)
Author:
gb
Message:

DEFGLOBAL->DEFSTATIC.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/level-1/l1-utils.lisp

    r5453 r6199  
    368368  var)
    369369
     370
    370371(defun %defglobal (var value &optional doc)
    371372  (%symbol-bits var (logior (ash 1 $sym_vbit_global) (the fixnum (%symbol-bits var))))
     
    940941  (assoc str alist :test #'string-equal))
    941942
    942 (defglobal *pathname-escape-character* #\\
     943(defstatic *pathname-escape-character* #\\
    943944  "Not CL.  A Coral addition for compatibility between CL spec and the shell.")
    944945
Note: See TracChangeset for help on using the changeset viewer.