lib/cl-sequences.lisp

   1 (in-package #:avm2-compiler)
   2
   3 ;;; CL sequences functions
   4
   5 (let ((*symbol-table* *cl-symbol-table*))
   6
   7   ;;; fixme: handle strings in sequence functions
   8   ;; reverse string = (%flash:join (%flash:reverse (%flash:split str "")) "")?
   9   (swf-defmemfun reverse (sequence)
  10     (typecase sequence
  11       (cons-type (%reverse-list sequence))
  12       (%flash:string (%flash:join (%flash:reverse (%flash:split sequence "")) ""))
  13       (%flash:array (%flash:reverse (%flash:concat sequence)))))
  14
  15   (swf-defmemfun nreverse (sequence)
  16     (if (%typep sequence %flash:array)
  17         (%flash:reverse sequence)
  18         (reverse sequence))) ;; fixme: add in-place list reverse
  19
  20
  21   (swf-defmemfun length (sequence)
  22     (if (listp sequence)
  23         (list-length sequence)
  24         ;; fixme: should probably be %flash:length instead of :length
  25         (%get-property sequence :length)))
  26
  27
  28
  29 )