src/pcl/ctypes.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 ;;; The built-in method combination types as taken from page 1-31 of
  27 ;;; 88-002R. Note that the STANDARD method combination type is defined
  28 ;;; by hand in the file combin.lisp.
  29 (define-method-combination +      :identity-with-one-argument t)
  30 (define-method-combination and    :identity-with-one-argument t)
  31 (define-method-combination append :identity-with-one-argument nil)
  32 (define-method-combination list   :identity-with-one-argument nil)
  33 (define-method-combination max    :identity-with-one-argument t)
  34 (define-method-combination min    :identity-with-one-argument t)
  35 (define-method-combination nconc  :identity-with-one-argument t)
  36 (define-method-combination or     :identity-with-one-argument t)
  37 (define-method-combination progn  :identity-with-one-argument t)
  38