Ticket #463: compiler-ap5.diff

File compiler-ap5.diff, 1.2 KB (added by Mark Evenson, 6 years ago)

hack the compiler for AP5

  • src/org/armedbear/lisp/dump-form.lisp 

    # HG changeset patch
# Parent  2f6848814e69c82931e58a03bf04fbd212398893
AP5 compilation process has problems

<https://abcl.org/trac/ticket/463>


<https://mailman.common-lisp.net/pipermail/armedbear-devel/2019-March/003967.html>

diff -r 2f6848814e69 src/org/armedbear/lisp/dump-form.lisp
    a b  
    169169
    170170(declaim (ftype (function (symbol) integer) dump-uninterned-symbol-index))
    171171(defun dump-uninterned-symbol-index (symbol)
     172  ;;; HACK Convert vector form to assoc list
     173  (when (vectorp *fasl-uninterned-symbols*)
     174    (setq *fasl-uninterned-symbols*
     175          (loop
     176             :for index :upfrom 0
     177             :for symbol :across *fasl-uninterned-symbols*
     178               :collecting (cons symbol index))))
    172179  (let ((index (cdr (assoc symbol *fasl-uninterned-symbols*))))
    173180    (unless index
    174181      (setq index (1+ (or (cdar *fasl-uninterned-symbols*) -1)))
    175182      (setq *fasl-uninterned-symbols*
    176183            (acons symbol index *fasl-uninterned-symbols*)))
    177184    index))
    178 
    179185(declaim (ftype (function (pathname stream) t) dump-pathname))
    180186(defun dump-pathname (pathname stream)
    181187  (write-string "#P(" stream)