1 ;;; -*- Package: ALPHA -*-
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.
8 ;;; **********************************************************************
10 ;;; Stuff to handle allocation of stuff we don't want to do inline.
12 ;;; Written by William Lott.
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.