From c37264081cc7498b5e439c45f045a21d7d7d77f2 Mon Sep 17 00:00:00 2001 From: AJ Rossini Date: Tue, 18 Aug 2009 08:08:39 +0200 Subject: [PATCH] initialization cleanup Signed-off-by: AJ Rossini --- TODO.lisp | 36 ++++++++++++++++++------------------ 1 file changed, 18 insertions(+), 18 deletions(-) diff --git a/TODO.lisp b/TODO.lisp index 468c148..c6ae1ce 100644 --- a/TODO.lisp +++ b/TODO.lisp @@ -1,6 +1,6 @@ ;;; -*- mode: lisp -*- -;;; Time-stamp: <2009-07-18 12:38:24 tony> +;;; Time-stamp: <2009-07-27 08:38:00 tony> ;;; Creation: <2008-09-08 08:06:30 tony> ;;; File: TODO.lisp ;;; Author: AJ Rossini @@ -18,23 +18,23 @@ (in-package :cl-user) -(defun init-CLS () - - ;; core system - ;;(asdf:oos 'asdf:load-op 'lisp-matrix) - ;;(asdf:oos 'asdf:compile-op 'cls :force t) - (asdf:oos 'asdf:load-op 'cls) - - ;; visualization - (asdf:oos 'asdf:load-op 'cl-cairo2-x11) - (asdf:oos 'asdf:load-op 'cl-2d) - - ;; doc reporting - (asdf:oos 'asdf:load-op 'cl-pdf) - (asdf:oos 'asdf:load-op 'cl-typesetting) - ) - -(init-CLS) +(progn + (defun init-CLS () + + ;; core system + ;;(asdf:oos 'asdf:load-op 'lisp-matrix) + ;;(asdf:oos 'asdf:compile-op 'cls :force t) + (asdf:oos 'asdf:load-op 'cls) + + ;; visualization + (asdf:oos 'asdf:load-op 'cl-cairo2-x11) + (asdf:oos 'asdf:load-op 'cl-2d) + + ;; doc reporting + (asdf:oos 'asdf:load-op 'cl-pdf) + (asdf:oos 'asdf:load-op 'cl-typesetting)) + + (init-CLS)) (in-package :lisp-stat-unittests) -- 2.11.4.GIT