In CGI mode, create and load a single FASL file instead of loading each source file directly.

Ignore-this: ea3269e86aae4bb2642cb25bb0db9d42

darcs-hash:4ec74e8bdc53cd16d103ce15cfe3a6d812f2c514

1 files changed, 0 insertions, 58 deletions

diff --git a/run.lisp b/run.lisp
deleted file mode 100755
index c77cab7..0000000
--- a/run.lisp
+++ /dev/null
@@ -1,58 +0,0 @@
-#! /usr/bin/env clisp
-;;;; -*- coding: utf-8; mode: lisp -*-
-;;;; Copyright 2007, Matthias Andreas Benkard.
-
-;;;------------------------------------------------------------------------
-;;; This file is part of The Mulkblog Project.
-;;;
-;;; The Mulkblog Project is free software.  You can redistribute it and/or
-;;; modify it under the terms of the Affero General Public License as
-;;; published by Affero, Inc.; either version 1 of the License, or
-;;; (at your option) any later version.
-;;;
-;;; The Mulkblog Project is distributed in the hope that it will be
-;;; useful, but WITHOUT ANY WARRANTY; without even the implied warranty
-;;; of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-;;; Affero General Public License for more details.
-;;;
-;;; You should have received a copy of the Affero General Public
-;;; License in the COPYING file that comes with The Mulkblog Project; if
-;;; not, write to Affero, Inc., 510 Third Street, Suite 225, San
-;;; Francisco, CA 94107 USA.
-;;;------------------------------------------------------------------------
-
-(in-package #:cl-user)
-
-;;; TAKE NOTICE: If you want to run this script from the command line or
-;;; from a web server, be sure to use a core image including the systems
-;;; this script depends upon.  The ASDF system definition has mainly
-;;; been written for purposes of debugging, development and
-;;; documentation.
-
-(defclass load-source-simple-op (asdf:operation) ())
-(defmethod asdf:perform ((o load-source-simple-op) (c asdf:component))
-  nil)
-(defmethod asdf:perform ((o load-source-simple-op) (m asdf:module))
-  (dolist (c (asdf:module-components m))
-    (load (asdf:component-pathname c))))
-
-
-#+clisp
-(unless (asdf:find-system :mulk-journal nil)
-  (let ((*package* (find-package :asdf)))
-    (load (merge-pathnames "mulk-journal.asd"
-                           system::*current-source-file*))))
-
-
-;;; The following does not generally work in a CGI setting because of
-;;; security restrictions.  Then again, loading all the dependencies
-;;; individually rather than using a core image would certainly be too
-;;; slow for any serious CGI usage, anyway, so what the heck.  Loading
-;;; our own files (no dependencies) using a manually loaded system
-;;; definition (see above) works, which suffices for our needs.
-(unless (find-package '#:mulk.journal)
-  (asdf:oos 'load-source-simple-op '#:mulk-journal))
-
-
-#+clisp
-(script-main)