head	1.3;
access;
symbols;
locks; strict;


1.3
date	94.10.31.04.11.27;	author ram;	state Exp;
branches;
next	1.2;

1.2
date	91.02.08.13.31.33;	author ram;	state Exp;
branches;
next	1.1;

1.1
date	90.02.23.12.22.52;	author ram;	state Exp;
branches;
next	;


desc
@Working code version as of 2/23/90.
@


1.3
log
@Fix headed boilerplate.
@
text
@;;; -*- Package: User -*-
;;;
;;; **********************************************************************
;;; This code was written as part of the CMU Common Lisp project at
;;; Carnegie Mellon University, and has been placed in the public domain.
;;;
(ext:file-comment
  "$Header: $")
;;;
;;; **********************************************************************
;;;
;;; This is a file loaded into a lisp to compile all the matchmaker interfaces.
;;;
(in-package "USER")

(when (probe-file "icode:lossage.log") (delete-file "icode:lossage.log"))
(mapc #'delete-file (directory "icode:*.fasl"))

(defun com (name)
  (declare (special *alien-eval-when*))
  (with-open-file (f "icode:lossage.log"
		     :direction :output
		     :if-exists :append
		     :if-does-not-exist :create)
    (let ((*standard-output* (make-broadcast-stream *standard-output* f)))
      (let ((*alien-eval-when* '(compile load)))
	(compile-file (concatenate 'string "icode:" name "defs.lisp")
		      :error-file nil))

      (let ((*alien-eval-when* '(eval)))
	(load (concatenate 'string "icode:" name "msgdefs.lisp")))
      
      (let ((*alien-eval-when* '(compile)))
	(compile-file (concatenate 'string "icode:" name "user.lisp")
		      :error-file nil)))))

(setq clc::*alien-fold* t)

(com "mach")
(com "netname")
@


1.2
log
@New file header with RCS header FILE-COMMENT.
@
text
@a5 2
;;; If you want to use this code or any part of CMU Common Lisp, please contact
;;; Scott Fahlman or slisp-group@@cs.cmu.edu.
@


1.1
log
@Initial revision
@
text
@d4 8
a11 5
;;; This code was written as part of the Spice Lisp project at
;;; Carnegie-Mellon University, and has been placed in the public domain.
;;; Spice Lisp is currently incomplete and under active development.
;;; If you want to use this code or any part of Spice Lisp, please contact
;;; Scott Fahlman (FAHLMAN@@CMUC). 
@