Commit 663f2fb3 authored by Marius Gerbershagen's avatar Marius Gerbershagen

delete unused files

parent aa75969e
;;;; -*- Mode: Lisp; Syntax: Common-Lisp; indent-tabs-mode: nil; Package: CLOS -*-
;;;; vim: set filetype=lisp tabstop=8 shiftwidth=2 expandtab:
;;;;
(load "../util/system")
(load "defsys")
(load "cmpinit")
(setq compiler:*cc* (concatenate 'STRING compiler:*cc* " -I../h -I../../linux/h"))
(rename-package 'clos 'old-clos)
(setq si:*gc-verbose* nil)
(sbt:build-system clos :compile :force)
;(setq *print-circle* t)
;(allocate 'cons 800 t)
(quit)
;;;; -*- Mode: Lisp; Syntax: Common-Lisp; indent-tabs-mode: nil -*-
;;;; vim: set filetype=lisp tabstop=8 shiftwidth=2 expandtab:
;;; ----------------------------------------------------------------------
;;; COMMON LISP LIBRARY
;;; ----------------------------------------------------------------------
(defparameter
*lsp-modules*
;; file load compile files which force
;; environment environment recompilations of
;; this file
'(
(export () () ())
(defmacro () () ())
(helpfile () () ())
#-runtime
(evalmacros () () ())
(module () () ())
(autoload () () ())
(setf () () ())
(arraylib () () ())
(predlib () () ())
(assert () () ())
(defstruct () () ())
(listlib () () ())
(mislib () () ())
(numlib () () ())
(packlib () () ())
(seq () () ())
(seqlib () () ())
(iolib () () ())
(ansi () () ())
(loop () () ())
#+cmu-format
(format () () ())
(defpackage () () ())
(ffi () () ())
#-runtime
(describe () () ())
(top () () ())
(trace () () ())
(config () () ())
#+threads
(thread () () ())
#+nil ; This is loaded as source file
(tk-init () () ())))
(sbt:defsystem
lsp
:modules *lsp-modules*
:source-directory '("@abs_srcdir@/" "@abs_builddir@/")
:fasl-directory "@abs_builddir@/"
:library-directory "@abs_top_builddir@/")
;;;; -*- Mode: Lisp; Syntax: Common-Lisp; indent-tabs-mode: nil; Package: SYSTEM -*-
;;;; vim: set filetype=lisp tabstop=8 shiftwidth=2 expandtab:
;;;;
;(load "../cmp/init")
(defun lcs1 (file)
(compile-file file
:c-file t :h-file t :data-file t :output-file nil
:system-p t))
(proclaim '(special sys::*indent-formatted-output*))
(defun compile-if-needed (file)
(let ((cfile-date (file-write-date (merge-pathnames file #".c"))))
(when (or (not cfile-date)
(> (file-write-date (merge-pathnames file #".lsp"))
cfile-date))
(compile-file file :c-file t :h-file t :data-file t
:output-file nil :system-p t)))
)
#|
(compile-if-needed "defmacro")
(compile-if-needed "evalmacros")
(compile-if-needed "top")
(compile-if-needed "module")
(compile-if-needed "predlib")
(compile-if-needed "setf")
(compile-if-needed "arraylib")
(compile-if-needed "assert")
(compile-if-needed "defstruct")
(compile-if-needed "describe")
(compile-if-needed "iolib")
(compile-if-needed "listlib")
(compile-if-needed "mislib")
(compile-if-needed "numlib")
(compile-if-needed "packlib")
(compile-if-needed "seq")
(compile-if-needed "seqlib")
(compile-if-needed "trace")
;(compile-if-needed "thread")
;(compile-if-needed "loop")
(bye)
|#
......@@ -44,8 +44,6 @@
"src:lsp;defpackage.lsp"
"src:lsp;ffi.lsp"
"src:lsp;mp.lsp"
#+tk
"src:lsp;tk-init.lsp"
"build:lsp;config.lsp"
"src:lsp;module.lsp"
"src:lsp;cmdline.lsp"
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment