Commit 62dbaa5e authored by Daniel Kochmański's avatar Daniel Kochmański

Merge branch 'master' into 'master'

Add clasp definitions

See merge request !2
parents c32b47aa f70e3482
......@@ -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 ~
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment