Skip to content
Snippets Groups Projects
Commit f70e3482 authored by Karsten Poeck's avatar Karsten Poeck Committed by Daniel Kochmański
Browse files

Add clasp definitions

parent c32b47aa
No related branches found
No related tags found
No related merge requests found
......@@ -39,6 +39,7 @@ daniel@turtleware.eu.
| 26-FEB-16 | dk | 3.0 | General clean-up - removal of the obsolete implementations support and constructs, testing on the active implementations etc. |
| 26-FEB-16 | dk | 3.1 | Make warnings more ASDF-friendly |
| 25-MAY-16 | dk | 3.2 | Improve the documentation (document ignore-no-calls parameter) |
| 02-JAN-20 |kpoeck| 3.2 | Add clasp support |
** To Do
......@@ -61,6 +62,7 @@ daniel@turtleware.eu.
| ABCL | 1.3.3 | Feb 2016 | |
| CCL | 1.11 | Feb 2016 | |
| CMUCL | 21a | Feb 2016 | |
| CLASP | 0.4.2-1761 | Jan 2020 | |
| CLISP | 2.49 | Feb 2016 | |
| ECL | 16.1.2 | Feb 2016 | |
| GCL | 2.6.13-pre | Feb 2016 | |
......
......@@ -116,7 +116,11 @@
(defmacro get-cons ()
`(the consing-type (sb-ext:get-bytes-consed)))
#-(or cmu clisp clozure ecl sbcl)
#+clasp
(defmacro get-cons ()
`(the consing-type (gctools::bytes-allocated)))
#-(or cmu clisp clozure ecl sbcl clasp)
(eval-when (load eval)
(warn "No consing will be reported unless a get-cons function is ~
defined.")
......@@ -192,7 +196,25 @@
(values 0 t))))
(T (values 0 t)))))
#-(or cmu clisp clozure allegro)
#+clasp
(defun required-arguments (name)
(multiple-value-bind (arglist foundp)
(core:function-lambda-list name)
(if foundp
(let ((position-and
(position-if #'(lambda (x)
(and (symbolp x)
(let ((name (symbol-name x)))
(and (>= (length name) 1)
(char= (schar name 0)
#\&)))))
arglist)))
(if position-and
(values position-and t)
(values (length arglist) nil)))
(values 0 t))))
#-(or cmu clisp clozure allegro clasp)
(eval-when (load eval)
(warn
"You may want to add an implementation-specific Required-Arguments ~
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment