{"action":"opened","issue":{"url":"https://api.github.com/repos/gheber/kenzo/issues/81","labels_url":"https://api.github.com/repos/gheber/kenzo/issues/81/labels{/name}","comments_url":"https://api.github.com/repos/gheber/kenzo/issues/81/comments","events_url":"https://api.github.com/repos/gheber/kenzo/issues/81/events","html_url":"https://github.com/gheber/kenzo/issues/81","id":116462096,"number":81,"title":"bicones.lisp","user":{"login":"gheber","id":6687038,"avatar_url":"https://avatars.githubusercontent.com/u/6687038?v=3","gravatar_id":"","url":"https://api.github.com/users/gheber","html_url":"https://github.com/gheber","followers_url":"https://api.github.com/users/gheber/followers","following_url":"https://api.github.com/users/gheber/following{/other_user}","gists_url":"https://api.github.com/users/gheber/gists{/gist_id}","starred_url":"https://api.github.com/users/gheber/starred{/owner}{/repo}","subscriptions_url":"https://api.github.com/users/gheber/subscriptions","organizations_url":"https://api.github.com/users/gheber/orgs","repos_url":"https://api.github.com/users/gheber/repos","events_url":"https://api.github.com/users/gheber/events{/privacy}","received_events_url":"https://api.github.com/users/gheber/received_events","type":"User","site_admin":false},"labels":[{"url":"https://api.github.com/repos/gheber/kenzo/labels/enhancement","name":"enhancement","color":"84b6eb"}],"state":"open","locked":false,"assignee":{"login":"gheber","id":6687038,"avatar_url":"https://avatars.githubusercontent.com/u/6687038?v=3","gravatar_id":"","url":"https://api.github.com/users/gheber","html_url":"https://github.com/gheber","followers_url":"https://api.github.com/users/gheber/followers","following_url":"https://api.github.com/users/gheber/following{/other_user}","gists_url":"https://api.github.com/users/gheber/gists{/gist_id}","starred_url":"https://api.github.com/users/gheber/starred{/owner}{/repo}","subscriptions_url":"https://api.github.com/users/gheber/subscriptions","organizations_url":"https://api.github.com/users/gheber/orgs","repos_url":"https://api.github.com/users/gheber/repos","events_url":"https://api.github.com/users/gheber/events{/privacy}","received_events_url":"https://api.github.com/users/gheber/received_events","type":"User","site_admin":false},"milestone":{"url":"https://api.github.com/repos/gheber/kenzo/milestones/4","html_url":"https://github.com/gheber/kenzo/milestones/Team%20Review","labels_url":"https://api.github.com/repos/gheber/kenzo/milestones/4/labels","id":1392709,"number":4,"title":"Team Review","description":"","creator":{"login":"gheber","id":6687038,"avatar_url":"https://avatars.githubusercontent.com/u/6687038?v=3","gravatar_id":"","url":"https://api.github.com/users/gheber","html_url":"https://github.com/gheber","followers_url":"https://api.github.com/users/gheber/followers","following_url":"https://api.github.com/users/gheber/following{/other_user}","gists_url":"https://api.github.com/users/gheber/gists{/gist_id}","starred_url":"https://api.github.com/users/gheber/starred{/owner}{/repo}","subscriptions_url":"https://api.github.com/users/gheber/subscriptions","organizations_url":"https://api.github.com/users/gheber/orgs","repos_url":"https://api.github.com/users/gheber/repos","events_url":"https://api.github.com/users/gheber/events{/privacy}","received_events_url":"https://api.github.com/users/gheber/received_events","type":"User","site_admin":false},"open_issues":12,"closed_issues":4,"state":"open","created_at":"2015-11-04T01:50:21Z","updated_at":"2015-11-12T01:50:09Z","due_on":null,"closed_at":null},"comments":0,"created_at":"2015-11-12T01:50:09Z","updated_at":"2015-11-12T01:50:09Z","closed_at":null,"body":"; in: DEFMETHOD CMPS (HOMOTOPY-EQUIVALENCE HOMOTOPY-EQUIVALENCE)\r\n;     (DEFMETHOD CAT::CMPS\r\n;                ((CAT::HMEQ1 CAT::HOMOTOPY-EQUIVALENCE)\r\n;                 (CAT::HMEQ2 CAT::HOMOTOPY-EQUIVALENCE)\r\n;                 &OPTIONAL CAT::DUMMY)\r\n;       (DECLARE (IGNORE CAT::DUMMY))\r\n;       \"(CMPS HMEQ1 HMEQ2 &OPTIONAL DUMMY) constructs a homotopy equivalence\r\n;   by composition of the homotopy equivalences HMEQ1 and HMEQ2.\"\r\n;       (THE CAT::HOMOTOPY-EQUIVALENCE\r\n;            (PROGN\r\n;             (WHEN (EQ 'CAT::TRIVIAL-HMEQ #) (RETURN-FROM CAT::CMPS CAT::HMEQ1))\r\n;             (WITH-SLOTS (# # # # # # # # #)\r\n;                 CAT::HMEQ1\r\n;               (DECLARE #\r\n;                        #)\r\n;               (WITH-SLOTS #\r\n;                   CAT::HMEQ2\r\n;                 #\r\n;                 #\r\n;                 #)))))\r\n; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER PROGN SB-PCL::LOAD-DEFMETHOD \r\n; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION \r\n; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS \r\n; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET LET SB-PCL::BIND-ARGS \r\n; --> LET* LOCALLY SYMBOL-MACROLET BLOCK \r\n; ==>\r\n;   (THE CAT::HOMOTOPY-EQUIVALENCE\r\n;        (PROGN\r\n;         (WHEN (EQ 'CAT::TRIVIAL-HMEQ (CAT::ORGN CAT::HMEQ2))\r\n;           (RETURN-FROM CAT::CMPS CAT::HMEQ1))\r\n;         (LET ((#:G537 CAT::HMEQ1))\r\n;           (DECLARE (IGNORABLE #:G537))\r\n;           (DECLARE (SB-PCL::%VARIABLE-REBINDING #:G537 CAT::HMEQ1))\r\n;           #:G537\r\n;           (SYMBOL-MACROLET (# # # # # # # # #)\r\n;             (DECLARE #\r\n;                      #)\r\n;             (LET #\r\n;               #\r\n;               #\r\n;               #:G539\r\n;               #)))))\r\n; \r\n; note: type assertion too complex to check:\r\n;  (VALUES HOMOTOPY-EQUIVALENCE &REST T)."}}