1 ;;; compat.lisp --- Create some definitions to fix CL compatibility
3 ;; Copyright (C) 2012, 2013 David Vazquez
4 ;; Copyright (C) 2012 Raimon Grau
6 ;; JSCL is free software: you can redistribute it and/or
7 ;; modify it under the terms of the GNU General Public License as
8 ;; published by the Free Software Foundation, either version 3 of the
9 ;; License, or (at your option) any later version.
11 ;; JSCL is distributed in the hope that it will be useful, but
12 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
13 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
14 ;; General Public License for more details.
16 ;; You should have received a copy of the GNU General Public License
17 ;; along with JSCL. If not, see <http://www.gnu.org/licenses/>.
19 ;;; Duplicate from boot.lisp by now
20 (defmacro with-collect (&body body)
23 `(let* ((,head (cons 'sentinel nil))
26 (rplacd ,tail (cons x nil))
27 (setq ,tail (cdr ,tail))
32 (defmacro while (condition &body body)
37 (defmacro eval-when-compile (&body body)
38 `(eval-when (:compile-toplevel :load-toplevel :execute)
41 (defun aset (array idx value)
42 (setf (aref array idx) value))
45 (defun concat (&rest strs)
46 (apply #'concatenate 'string strs)))
49 (declare (ignorable x))