From 50c64a115e49e171bc1d71e06d68b26199aea02c Mon Sep 17 00:00:00 2001 From: AJ Rossini Date: Sat, 18 Jul 2009 12:59:22 +0200 Subject: [PATCH] cleanup loading function. Signed-off-by: AJ Rossini --- TODO.lisp | 26 ++++++++++++-------------- 1 file changed, 12 insertions(+), 14 deletions(-) diff --git a/TODO.lisp b/TODO.lisp index 3b31ff3..468c148 100644 --- a/TODO.lisp +++ b/TODO.lisp @@ -1,6 +1,6 @@ ;;; -*- mode: lisp -*- -;;; Time-stamp: <2009-07-18 12:33:43 tony> +;;; Time-stamp: <2009-07-18 12:38:24 tony> ;;; Creation: <2008-09-08 08:06:30 tony> ;;; File: TODO.lisp ;;; Author: AJ Rossini @@ -19,24 +19,22 @@ (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) - (asdf:oos 'asdf:load-op 'cl-pdf) - (asdf:oos 'asdf:load-op 'cl-typesetting)) -(defun init-CLS-graphics () - (init-CLS) + ;; visualization (asdf:oos 'asdf:load-op 'cl-cairo2-x11) - (asdf:oos 'asdf:load-op 'cl-2d)) - -(init-CLS-graphics) - -;;(asdf:oos 'asdf:load-op 'lisp-matrix) -;;(asdf:oos 'asdf:compile-op 'cls :force t) -;;(asdf:oos 'asdf:load-op 'cls) + (asdf:oos 'asdf:load-op 'cl-2d) + ;; doc reporting + (asdf:oos 'asdf:load-op 'cl-pdf) + (asdf:oos 'asdf:load-op 'cl-typesetting) + ) -;;(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