[movitz-cvs] CVS movitz

[ffjeld]

Update of /project/movitz/cvsroot/movitz
In directory clnet:/tmp/cvs-serv30926

Added Files:
	movitz.asd 
Log Message:
Initial attempt.



--- /project/movitz/cvsroot/movitz/movitz.asd	2008/02/25 20:11:01	NONE
+++ /project/movitz/cvsroot/movitz/movitz.asd	2008/02/25 20:11:01	1.1
;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
;;;;------------------------------------------------------------------
;;;; 
;;;;    Copyright (C) 2008, Frode V. Fjeld
;;;; 
;;;;    For distribution policy, see the accompanying file COPYING.
;;;; 
;;;; Filename:      movitz.asd
;;;; Description:   Movitz ASDF system definition.
;;;; Author:        Frode Vatvedt Fjeld <ffjeld at common-lisp.net>
;;;; Created at:    Thu Jan 15 18:40:58 2004
;;;;                
;;;; $Id: movitz.asd,v 1.1 2008/02/25 20:11:01 ffjeld Exp $
;;;;                
;;;;------------------------------------------------------------------


(defpackage movitz-asd
  (:use :cl :asdf))

(in-package movitz-asd)

(defsystem movitz-asm
  :name "Movitz Assembler"
  :version "1.0"
  :maintainer "ffjeld at common-lisp.net"
  :author "Frode V. Fjeld"
  :license "BSD-like, see accopanying file COPYING."
  :description "An (dis-)assembler framework, with support for x86 in 16, 32, and 64-bit modes."
  :serial t
  :components ((:file "asm")
	       (:file "asm-x86")))

(defclass movitz-source-file (cl-source-file) ())

(defsystem movitz
  :name "Movitz"
  :version "0.1"
  :maintainer "ffjeld at common-lisp.net"
  :author "Frode V. Fjeld"
  :license "BSD-like, see accopanying file COPYING."
  :description "A compiler, run-time, and libraries for Common Lisp on the x86."
  :default-component-class movitz-source-file
  :serial t
  :depends-on (binary-types)
  :components ((:file "packages")
	       (:file "movitz")
	       (:file "parse")
	       (:file "eval")
	       (:file "environment")
	       (:file "compiler-types")
	       (:file "compiler-protocol")
	       (:file "storage-types")
	       (:file "multiboot")
	       (:file "bootblock")
	       (:file "image")
	       (:file "stream-image")
	       (:file "assembly-syntax")
	       (:file "compiler")
	       (:file "special-operators")
	       (:file "special-operators-cl")))


#+sbcl
(defmethod perform :around (op (file movitz-source-file))
  (handler-bind ((sb-ext:defconstant-uneql #'continue))
    (call-next-method)))