dcguim

(let ((data (make-array 20 :initial-element nil))) 
            (values(read-sequence data (make-string-input-stream "testing things")) data))

dcguim

;;;;Por que não printa o valor do 11

;; simple closure 
(let ((x 10)) #'(lambda () 
			   (setf x (1+ x))
			   (format t "~a" x)))
			   
;; in REPL
(funcall #'(lambda ()))
			 

dcguim

<xsl:template match="mets:xmlData">
    <dc:title> <xsl:value-of select="normalize-space(mods:titleInfo)"/> </dc:title>
    <bibo:uri rdf:datatype="&xsd;anyURI"> 
      <xsl:value-of select="mods:identifier"/> 
    </bibo:uri>
    <dc:date rdf:datatype="&xsd;dateTime">
      <xsl:value-of select="mods:originInfo/mods:dateIssued"/>
    </dc:date>
    <dc:language> <xsl:value-of select="mods:language/mods:languageTerm"/> </dc:language>
    <bibo:abstract>

dcguim

    <dc:source xml:lang="en-US">AgroANALYSIS; Vol. 33, No 09
          (2013): setembro - Confinamento: bom resultado para
          profissionais; 6-8</dc:source>
    <dc:source xml:lang="pt-BR">AgroANALYSIS; Vol. 33, No 09
          (2013): setembro - Confinamento: bom resultado para
          profissionais; 6-8</dc:source>

dcguim

<record>
      <header>
        <identifier>oai:ojs.fgv.br:article/19674</identifier>
        <datestamp>2014-04-14T20:16:05Z</datestamp>
        <setSpec>agroanalysis:ABA</setSpec>
      </header>
      <metadata>
        <oai_dc:dc xmlns:oai_dc="http://www.openarchives.org/OAI/2.0/oai_dc/"
        xmlns:dc="http://purl.org/dc/elements/1.1/"
        xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"

dcguim

<vivo:hasPublicationVenue>
      <rdf:Description rdf:nodeID="idp45808">
        <rdf:type rdf:resource="bibo;Journal" />
        <dc:language>en-US</dc:language>
        <rdfs:label>AgroANALYSIS; Vol. 33, No 09 (2013): setembro -
        Confinamento: bom resultado para profissionais;
        6-8</rdfs:label>
      </rdf:Description> ...

dcguim

T1 Redes Neurais Daniel Coelho Guimaraes 1021361

	GRUPO 1						GRUPO 2						GRUPO 3
	II	III	IV	V	VI	VII	II	III	IV	V	VI	VII	II	III	IV	V	VI	VII
primeira hidden layer	0	1	1	2	1	1	0	1	1	2	1	1	0	1	1	2	1	1
se

dcguim

T1 Redes Neurais Daniel Coelho Guimaraes 1021361

	GRUPO 1						GRUPO 2						GRUPO 3
	II	III	IV	V	VI	VII	II	III	IV	V	VI	VII	II	III	IV	V	VI	VII
primeira hidden layer	0	1	1	2	1	1	0	1	1	2	1	1	0	1	1	2	1	1
se

dcguim

 (defun insert-pair (key value)
	   (setf (gethash key (gethash current-article *hash*)) value))	 
	   
(defmethod sax:start-element ((h bibtex-handler) (namespace t) (local-name t) (qname t) (attributes t))
  (cond ((equal local-name "ARTIGO-PUBLICADO")
	 (let ((seq (sax:attribute-value (sax:find-attribute "SEQUENCIA-PRODUCAO" attributes))))
	   (setf (gethash seq *hash*) (make-hash-table))
	   (format t "seq:~a:~%" seq)
	   (setf current-article seq)
	   (format t "current-article:~a~%" current-article)

dcguim

(defun write-bib-entry (entry &optional (stream *standard-output*))
  (format stream "~&@~A{~A"
	  (bib-entry-type entry)
	  (bib-entry-cite-key entry))
  (loop for field being each hash-key in (bib-entry-dict entry)
	and value being each hash-value in (bib-entry-dict entry)
	do (format stream ",~%  ~A = {~A}" field value))
  (format stream "~%}~%"))