src/code/early-defstruct-args.lisp-expr

   1 ;;;; descriptions of ordinary (non-ALTERNATE-METACLASS) DEFSTRUCTs
   2 ;;;; which are to be handled before any others
   3
   4 ;;;; This software is part of the SBCL system. See the README file for
   5 ;;;; more information.
   6 ;;;;
   7 ;;;; This software is derived from the CMU CL system, which was
   8 ;;;; written at Carnegie Mellon University and released into the
   9 ;;;; public domain. The software is in the public domain and is
  10 ;;;; provided with absolutely no warranty. See the COPYING and CREDITS
  11 ;;;; files for more information.
  12
  13 (;; The target ALIEN-VALUE class must be defined early in the cross-compiler
  14  ;; build sequence in order to set up superclass relationships involving it.
  15  ;;
  16  ;; FIXME: Since this definition refers to SB!ALIEN:ALIEN-TYPE, which is also
  17  ;; defined as a structure, perhaps it might be reasonable to add an entry,
  18  ;; somewhere before this definition, to define SB!ALIEN:ALIEN-TYPE? That
  19  ;; way, any tests for SB!ALIEN:ALIEN-TYPE in the slot accessor functions
  20  ;; could be implemented more efficiently.
  21  ;;
  22  ;; (The #|DEF|# here is to help find this definition with lexical search.)
  23  (#|def|# (sb!alien-internals:alien-value)
  24   (sap (missing-arg) :type sb!sys:system-area-pointer)
  25   (type (missing-arg) :type sb!alien::alien-type)))