Data commit

Task/Introspection/Common-Lisp/introspection-1.lisp

@@ -0,0 +1,5 @@
+(let* ((ver (lisp-implementation-version))
+       (major (parse-integer ver :start 0 :end (position #\. ver))))
+  #+lispworks (assert (>= 5 major) () "Requires Lispworks version 5 or above")
+  #+clisp (assert (>= 2 major) () "Requires CLISP 2.n")
+  )

Task/Introspection/Common-Lisp/introspection-2.lisp

@@ -0,0 +1,4 @@
+(defvar bloop -4)
+(if (and (fboundp 'abs)
+         (boundp 'bloop))
+    (format t "~d~%" (abs bloop)))

Task/Introspection/Common-Lisp/introspection-3.lisp

@@ -0,0 +1,10 @@
+(let ((sum 0)
+      (ints '()))
+  (loop for pkg in (list-all-packages)
+        do (do-symbols (s pkg)
+                       (when (and (boundp s)
+                                  (integerp (symbol-value s)))
+                            (push s ints)
+                            (incf sum (symbol-value s)))))
+  (format t "there are ~d integer variables adding up to ~d~%"
+          (length ints) sum))