Added TRACE-FUNCTION, UNTRACE-FUNCTION, TRACED-FUNCTIONS.

Pascal J. Bourguignon [2014-10-10 02:24]
Added TRACE-FUNCTION, UNTRACE-FUNCTION, TRACED-FUNCTIONS.
Filename
minimal-compiler-system.lisp
minimal-compiler.lisp
packages.lisp
diff --git a/minimal-compiler-system.lisp b/minimal-compiler-system.lisp
index 2ce4762..05cc8a1 100644
--- a/minimal-compiler-system.lisp
+++ b/minimal-compiler-system.lisp
@@ -46,7 +46,7 @@ RETURN: TYPE-NAME"

 (defun ensure-type (type-name lambda-list docstring declarations type-form)
   (declare (ignore lambda-list docstring declarations type-form))
-;;;; TODO: eventually we may want to register the type somewhere.
+  ;; TODO: eventually we may want to register the type somewhere.
   type-name)


@@ -59,7 +59,7 @@ RETURN: CLASS-NAME"

 (defun ensure-class (class-name slot-specifiers class-options)
   (declare (ignore  slot-specifiers class-options))
-;;;; TODO: eventually we may want to register the class somewhere.
+  ;; TODO: eventually we may want to register the class somewhere.
   class-name)


@@ -92,4 +92,23 @@ RETURN: CLASS-NAME"



+
+(defun traced-functions ()
+  "RETURN: The list of functions currently traced."
+  ;; TODO: to be implemented.
+  '())
+
+
+(defun trace-function (fname)
+  "Starts tracing the function."
+  ;; TODO: to be implemented.
+  fname)
+
+
+(defun untrace-function (fname)
+  "Stops tracing the function."
+  ;; TODO: to be implemented.
+  fname)
+
+
 ;;;; THE END ;;;;
diff --git a/minimal-compiler.lisp b/minimal-compiler.lisp
index 5f951bf..fcb906e 100644
--- a/minimal-compiler.lisp
+++ b/minimal-compiler.lisp
@@ -38,8 +38,6 @@
 ;;;;     Software Foundation, Inc., 59 Temple Place, Suite 330,
 ;;;;     Boston, MA 02111-1307 USA
 ;;;; *************************************************************************
-
-
 (in-package "MINIMAL-COMPILER")


diff --git a/packages.lisp b/packages.lisp
index d51ad54..d8ed279 100644
--- a/packages.lisp
+++ b/packages.lisp
@@ -33,10 +33,8 @@
 ;;;;    Software Foundation, Inc., 59 Temple Place, Suite 330,
 ;;;;    Boston, MA 02111-1307 USA
 ;;;;**************************************************************************
-
 (in-package "COMMON-LISP-USER")

-
 (defpackage "MINIMAL-COMPILER"
   (:nicknames "MC")
   (:use "COMMON-LISP"
@@ -82,7 +80,11 @@ and macros needed to manipulate them.
            "SOURCE-PROGRAM-ERROR-INVALID-DEFPACKAGE-CLAUSE"
            "SOURCE-PROGRAM-ERROR-TOO-MANY-DEFTYPE-FORMS"
            "PACKAGE-ERROR-PACKAGE-NOT-FOUND"
-           "PACKAGE-ERROR-SYMBOL-NOT-FOUND")
+           "PACKAGE-ERROR-SYMBOL-NOT-FOUND"
+
+           "TRACE-FUNCTION"
+           "UNTRACE-FUNCTION"
+           "TRACED-FUNCTIONS")
   (:documentation "

 This package exports primitives that are referenced by the macros
ViewGit