src/pcl/slot-name.lisp

   1 ;;;; This software is part of the SBCL system. See the README file for
   2 ;;;; more information.
   3
   4 ;;;; This software is derived from software originally released by Xerox
   5 ;;;; Corporation. Copyright and release statements follow. Later modifications
   6 ;;;; to the software are in the public domain and are provided with
   7 ;;;; absolutely no warranty. See the COPYING and CREDITS files for more
   8 ;;;; information.
   9
  10 ;;;; copyright information from original PCL sources:
  11 ;;;;
  12 ;;;; Copyright (c) 1985, 1986, 1987, 1988, 1989, 1990 Xerox Corporation.
  13 ;;;; All rights reserved.
  14 ;;;;
  15 ;;;; Use and copying of this software and preparation of derivative works based
  16 ;;;; upon this software are permitted. Any distribution of this software or
  17 ;;;; derivative works must comply with all applicable United States export
  18 ;;;; control laws.
  19 ;;;;
  20 ;;;; This software is made available AS IS, and Xerox Corporation makes no
  21 ;;;; warranty about the software, its performance or its conformity to any
  22 ;;;; specification.
  23
  24 (in-package "SB!PCL")
  25 \f
  26 ;; This choice of naming structure is perhaps unfortunate, because were the
  27 ;; names 2-lists, the globaldb hack to support this would instead be
  28 ;; a natural use of the (SETF <x>) style naming that globaldb favors.
  29 ;; But this naming is documented, and changing it would be incompatible.
  30 ;; The 4-part name can be thought of as a 2-part name because
  31 ;; half of it is composed of constants:
  32 ;; (SB-PCL::SLOT-ACCESSOR :GLOBAL <foo> SB-PCL::{READER|WRITER|BOUNDP})
  33 ;; -> ({READER|WRITER|BOUNDP} <foo>)
  34 ;;
  35 (defun slot-reader-name (slot-name)
  36   (list 'slot-accessor :global slot-name 'reader))
  37
  38 (defun slot-writer-name (slot-name)
  39   (list 'slot-accessor :global slot-name 'writer))
  40
  41 (defun slot-boundp-name (slot-name)
  42   (list 'slot-accessor :global slot-name 'boundp))
  43