From: Vladimir Sedach <vsedach@gmail.com>
Date: Sun, 12 Apr 2009 23:16:12 +0000 (-0600)
Subject: Removed 'append' from runtime lib since Daniel Gackle provided a more concise macro... 
X-Git-Url: https://git.hcoop.net/clinton/parenscript.git/commitdiff_plain/ba417109ddd2303e50b21d4ad8371ebe923abf46

Removed 'append' from runtime lib since Daniel Gackle provided a more concise macro version in 83a26b36c.
---

diff --git a/runtime/ps-runtime-lib.lisp b/runtime/ps-runtime-lib.lisp
index 3c61c70..efded61 100644
--- a/runtime/ps-runtime-lib.lisp
+++ b/runtime/ps-runtime-lib.lisp
@@ -1,4 +1,4 @@
-(in-package :parenscript)
+(in-package "PARENSCRIPT")
 
 ;;; Script of library functions you can include with your own code to
 ;;; provide standard Lisp functionality.
@@ -9,10 +9,10 @@
       (let ((result-array (make-array)))
         (if (= 1 (length as))
             (dolist (element (aref as 0))
-              (result-array.push (fun element)))
+              ((@ result-array push) (fun element)))
             (dotimes (i (length (aref as 0)))
               (let ((args-array (mapcar (lambda (a) (return (aref a i))) as)))
-                (result-array.push (fun.apply fun args-array)))))
+                ((@ result-array push) ((@ fun apply) fun args-array)))))
         (return result-array)))
 
     (defun map-into (fn arr)
@@ -48,22 +48,6 @@
             (return true)))
       (return false))
 
-    (defun append (arr1 arr2)
-      "Return a new array with the contents of ARR1 and ARR2. If ARR2 is not an array
-then append it as a member."
-      (let ((result (array))
-            (idx 0))
-        (dolist (el arr1)
-          (setf (aref result idx) el)
-          (setf idx (1+ idx)))
-        (unless (= arr2 undefined)
-          (if (instanceof arr2 *array)
-              (dolist (el arr2)
-                (setf (aref result idx) el)
-                (setf idx (1+ idx)))
-              (setf (aref result idx) arr2))))
-      (return result))
-
     (defun set-difference (arr arr-to-sub)
       "Return a new array with only those elements in ARR that are not in ARR-TO-SUB."
       (let ((idx 0)