Re: [cclan-list] asdf path problems under ACL62

[Martin E. <me...@ch...>]

Daniel Barlow writes:
 > -----BEGIN PGP SIGNED MESSAGE-----
 > Hash: SHA1
 > 
 > Martin Elster <me...@ch...> writes:
 > 
 > > When I try to call (asdf:operate 'asdf:load-op 'paip) to load Norvigs
 > > paip code, the following happens: 
 > [...]
 > > ;;; Compiling file /home/melster/data/lisp/lib/systems/paip.asd
 > > ;;; Writing fasl file /home/melster/data/lisp/lib/systems/paip.fasl
 > > ;;; Fasl write complete
 > > ; Fast loading /home/melster/data/lisp/lib/systems/paip.fasl
 > > ; registering #<SYSTEM :PAIP @ #x71beecaa> as PAIP
 > > Error: File #p"/home/melster/data/lisp/lib/systems/auxfns.lisp" does
 > > not exist.
 > 
 > That's odd.  Your symlinks look fine.  What do you get if you call 
 > (asdf::resolve-symlinks "/home/melster/data/lisp/lib/systems/paip.asd")
 > 
CL-USER(2): (asdf::resolve-symlinks "/home/melster/data/lisp/lib/systems/paip.asd")
#p"/home/melster/data/lisp/lib/systems/../paip/paip.asd"
CL-USER(3):      

 > According to reports, TRUENAME in ACL doesn't resolve symlinks as most
 > other Unix CLs do (not saying this is a bad thing; in fact, I quite
 > like it), so we have this RESOLVE-SYMLINKS function which is
 > special-cased for #+allegro.  I assume that ACL 6.2 still defines that
 > feature.
 > 

In the asdf.lisp file RESOLVE-SYMLINKS translates to
EXCL:PATHNAME-RESOLVE-SYMBOLIC-LINKS. This seems to work: 

CL-USER(9): (excl:pathname-resolve-symbolic-links "/home/melster/data/lisp/lib/systems/paip.asd")
#p"/home/melster/data/lisp/lib/systems/../paip/paip.asd"
CL-USER(10):       

 > Can you post the .asd file you're using?  

See below for the paip.asd file. This one is originally from
Debians paip package. 

Martin 



;;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Base: 10 -*-
;;;; *************************************************************************
;;;; FILE IDENTIFICATION
;;;;
;;;; Name:          paip.asd
;;;; Purpose:       ASDF definition file for Paip
;;;; Programmer:    Kevin M. Rosenberg
;;;; Date Started:  Sep 2002
;;;;
;;;; $Id: paip.asd,v 1.5 2002/11/12 18:57:13 kevin Exp $
;;;;
;;;; This file, part of cl-paip, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
;;;; cl-paip users are granted the rights to distribute and use this software
;;;; as governed by the terms of the GNU Lesser General Public License 
;;;; (http://www.gnu.org/licenses/lgpl.html)
;;;; *************************************************************************

(in-package :asdf)

(defclass paip-module (module) ())

(defmethod perform ((op load-op) (c paip-module))
  nil)

(defmethod perform ((op compile-op) (c paip-module))
  nil)

(defsystem :paip
    :name "cl-paip"
    :author "Peter Norvig"
    :version "1.0"
    :maintainer "Kevin M. Rosenberg <km...@de...>"
    :licence "Peter Norvig's DFSG-compliant license"
    :description "Paradigms of Artificial Intelligence Programming Source Code"
    :long-description "Paradisms of Artificial Intelligence Program by Peter Norvig."
    :components ((:file "auxfns")
		 (:paip-module :paip :depends-on ("auxfns"))))