<RefEntry id="system-id-filename"> <!-- This file is generated automatically from the DSSSL source. --> <!-- Do not edit this file! --> <?html-filename system-id-filename.html> <RefMeta> <RefEntryTitle>system-id-filename</RefEntryTitle> <RefMiscInfo Role="file">dblib.dsl</RefMiscInfo> </RefMeta> <RefNameDiv> <RefName>system-id-filename</RefName> <RefPurpose>Returns the filename part of the system id of target</RefPurpose> </RefNameDiv> <RefSynopsisDiv><Title>Synopsis</Title> <Synopsis> (system-id-filename target) </Synopsis> </RefSynopsisDiv> <RefSect1><Title>Description</Title> <para> The entity-generated-system-id of target seems to begin with a keyword, usually OSFILE on my system, in angle brackets. This function removes the leading OSFILE bit.</para> </RefSect1> <RefSect1><Title>Author</Title> <para> Norman Walsh, <ndw@nwalsh.com> </para> </RefSect1> <RefSect1><Title>Source Code</Title> <ProgramListing> (define (system-id-filename target) ;; Returns the filename part of the system id of target (let* ((sysid (entity-generated-system-id target)) (fnbits (split sysid '(#\>))) (fntail (cdr fnbits))) (join fntail "\U-0061;"))) </ProgramListing> </RefSect1> </RefEntry>