Ignore:
Timestamp:
Oct 21, 2009, 7:11:41 PM (10 years ago)
Author:
rme
Message:

Change "OpenMCL" to "Clozure CL" in comments and docstrings.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/linux-files.lisp

    r13026 r13066  
    22;;;
    33;;;   Copyright (C) 1994-2001 Digitool, Inc
    4 ;;;   This file is part of OpenMCL. 
     4;;;   This file is part of Clozure CL. 
    55;;;
    6 ;;;   OpenMCL is licensed under the terms of the Lisp Lesser GNU Public
    7 ;;;   License , known as the LLGPL and distributed with OpenMCL as the
     6;;;   Clozure CL is licensed under the terms of the Lisp Lesser GNU Public
     7;;;   License , known as the LLGPL and distributed with Clozure CL as the
    88;;;   file "LICENSE".  The LLGPL consists of a preamble and the LGPL,
    9 ;;;   which is distributed with OpenMCL as the file "LGPL".  Where these
     9;;;   which is distributed with Clozure CL as the file "LGPL".  Where these
    1010;;;   conflict, the preamble takes precedence. 
    1111;;;
    12 ;;;   OpenMCL is referenced in the preamble as the "LIBRARY."
     12;;;   Clozure CL is referenced in the preamble as the "LIBRARY."
    1313;;;
    1414;;;   The LLGPL is also available online at
     
    207207
    208208(defun current-directory-name ()
    209   "Look up the current working directory of the OpenMCL process; unless
    210 it has been changed, this is the directory OpenMCL was started in."
     209  "Look up the current working directory of the Clozure CL process; unless
     210it has been changed, this is the directory Clozure CL was started in."
    211211  (flet ((try-getting-dirname (bufsize)
    212212           (%stack-block ((buf bufsize))
     
    286286(defun setuid (uid)
    287287  "Attempt to change the current user ID (both real and effective);
    288 fails unless the OpenMCL process has super-user privileges or the ID
     288fails unless the Clozure CL process has super-user privileges or the ID
    289289given is that of the current user."
    290290  (int-errno-call (#_setuid uid)))
     
    293293(defun setgid (uid)
    294294  "Attempt to change the current group ID (both real and effective);
    295 fails unless the OpenMCL process has super-user privileges or the ID
     295fails unless the Clozure CL process has super-user privileges or the ID
    296296given is that of a group to which the current user belongs."
    297297  (int-errno-call (#_setgid uid)))
     
    774774
    775775(defun getpid ()
    776   "Return the ID of the OpenMCL OS process."
     776  "Return the ID of the Clozure CL OS process."
    777777  #-windows-target
    778778  (int-errno-call (#_getpid))
     
    21172117                        (with-macptrs ((v (%inc-ptr header-addr target::fulltag-misc)))
    21182118                          (let* ((vector (rlet ((p :address v)) (%get-object p 0))))
    2119                             ;; Tell some parts of OpenMCL - notably the
     2119                            ;; Tell some parts of Clozure CL - notably the
    21202120                            ;; printer - that this thing off in foreign
    21212121                            ;; memory is a real lisp object and not
Note: See TracChangeset for help on using the changeset viewer.