/[cmucl]/src/assembler/miscasm.lisp
ViewVC logotype

Contents of /src/assembler/miscasm.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.3 - (show annotations)
Sat Aug 30 11:30:56 2003 UTC (10 years, 7 months ago) by gerd
Branch: MAIN
CVS Tags: HEAD
Changes since 1.2: +0 -0 lines
FILE REMOVED
	* src/ldb/, src/assembler/: Removed; dead code.
1 ;;; -*- Mode: Lisp; Package: Compiler -*-
2
3 ;;; **********************************************************************
4 ;;; This code was written as part of the Spice Lisp project at
5 ;;; Carnegie-Mellon University, and has been placed in the public domain.
6 ;;; Spice Lisp is currently incomplete and under active development.
7 ;;; If you want to use this code or any part of Spice Lisp, please contact
8 ;;; Scott Fahlman (FAHLMAN@CMUC).
9 ;;; **********************************************************************
10
11 (in-package 'compiler)
12
13 (export '(asm asm-files) (find-package 'compiler))
14
15 (defun asm (f)
16 (assemble-file (concatenate 'simple-string "miscops:" f ".romp")))
17
18 (defun asm-files ()
19 (asm "abs")
20 (asm "allocation")
21 (asm "arith")
22 (asm "array")
23 (asm "byte")
24 (asm "call")
25 (asm "nlx")
26 (asm "compare")
27 (asm "divide")
28 (asm "gc")
29 (asm "gcd")
30 (asm "irrat")
31 (asm "list")
32 (asm "logic")
33 (asm "minus")
34 (asm "misc")
35 (asm "multiply")
36 (asm "negate")
37 (asm "plus")
38 (asm "print")
39 (asm "predicate")
40 (asm "save")
41 (asm "stack")
42 (asm "symbol")
43 (asm "system")
44 (asm "truncate"))

  ViewVC Help
Powered by ViewVC 1.1.5