src/assembly/alpha/alloc.lisp

   1 ;;; -*- Package: ALPHA -*-
   2 ;;;
   3 ;;; **********************************************************************
   4 ;;; This code was written as part of the CMU Common Lisp project at
   5 ;;; Carnegie Mellon University, and has been placed in the public domain.
   6 ;;;
   7 ;;;
   8 ;;; **********************************************************************
   9 ;;;
  10 ;;; Stuff to handle allocation of stuff we don't want to do inline.
  11 ;;;
  12 ;;; Written by William Lott.
  13 ;;;
  14
  15 (in-package "SB!VM")
  16
  17
  18 ;;; Given that the pseudo-atomic sequence is so short, there is
  19 ;;; nothing that qualifies.  But we want to keep the file around
  20 ;;; in case we decide to add something later.
  21