Where is ASDF:SYSTEM?

ID	Created	Type	mocl Version	Dev OS	Target	Status
#79	by informatimago on 2015-03-01 (1790 days ago)	defect	14.08	Mac OS X	n/a	open

Description

Summary:

Steps to Reproduce:

Compile a file containing:

(defun component-names (system)
  (mapcar (lambda (system)
           (etypecase system
             (asdf:system (asdf:component-name system))
             (string  system)
             (symbol  (string-downcase system))))
         (asdf:component-depends-on 'asdf:load-op system)))


Expected Results:

A nice function returning asdf system component names.

Actual Results:

n=bug-asdf-system            ; echo --- ; mkdir -p /tmp/${n}/src ; mocl --verbose --warn --android /tmp/${n} ${n}.lisp
---
mocl 14.08 Copyright (C) 2013-2014 Wukix, Inc. (https://wukix.com)
[Source Analysis]
/Users/pjb/src/mocl/bug-asdf-system.lisp
  defun        component-names
Error: Illegal type specifier SYSTEM
make: [check-bugs] Error 1 (ignored)


Notes:

There seem to be serious problems with the type system in MoCL...

Comments

(defun component-names (system)
  (mapcar (lambda (system)
            (cond
              ((typep system 'asdf:system) (asdf:component-name system))
              ((typep system 'string)  system)
              ((typep sysetm 'symbol)  (string-downcase system))
              (t (error "Unexpected type ~S for system: ~S" (type-of system) system))))
          (asdf:component-depends-on 'asdf:load-op system)))

doesn't work either.

- informatimago, 1790 days ago