1 ;;;; This software is part of the SBCL system. See the README file for
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
10 ;;;; copyright information from original PCL sources:
12 ;;;; Copyright (c) 1985, 1986, 1987, 1988, 1989, 1990 Xerox Corporation.
13 ;;;; All rights reserved.
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
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
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>)
35 (defun slot-reader-name (slot-name)
36 (list 'slot-accessor
:global slot-name
'reader
))
38 (defun slot-writer-name (slot-name)
39 (list 'slot-accessor
:global slot-name
'writer
))
41 (defun slot-boundp-name (slot-name)
42 (list 'slot-accessor
:global slot-name
'boundp
))